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Appendix I 

/* Copyright (c) 1991-1995 Duane DeSieno 
/*********************************** END TRAIN. C 

void FindVariables 0 
{ 

short- X, n, i, k; 

long nin; 

long NumPasses; 

struct ddnet FAR *pnet; 

float HHUGE *TmData; 

FILE *fLog; 

FILE *fp; 

FILE *fEnum; 

/* load the structures */ 

dd_get_struct (NetNum, &pnet) ; 

/* load the root network parameters */ 

sprintf (ParFileName, "%s. par", RootName) ; 

dd_read_parms (NetNum, ParFileName) ; 

sprintf (ParFileName, "%s .vsp" , RootName) ; 

sprintf (TrnFileName, "%s.t3m", RootName); 

sprintf (LogFileName, %s.vsl", RootName); 

/* read the partameters for variable selection from .vsp file */ 
fp = fopen (ParFileName, "r") ; 
if (fp == NULL) { 

printf ("could not open variable selection parameters file! 

\n") 

return; 

} 

fLog = fopen (LogFileName, "a") ; 
/* setup initial list */ 

for(x=0; x<MaxVars; x++) ImpVar [x] = EXCLUDE; 
nAvailVa.rs = 0; 

/* nPartition =5; */ 
fgets (str, 256, fp) ; 
nPartition = (short) atoi (str) ; 

fprintf (fLog, "nPartitions = %d\n", nPartition); 
printf ("nPartitions = %d\n" , nPartition) ; 

/* nConsensus = 10; */ 

fgets (str, 256, fp) ; 

nConsensus = (short) atoi (str) ; 

f -printf (fLog, "nConsensus = %d\n" , nConsensus); 
printf ("nConsensus = %d\n" , nConsensus) ; 

/* nTop = 10; */ 

fgets (str, 256, fp) ; 

nTop = (short) atoi (str) ; 

fprintf (fLog, "nTop = %d\n",nTop); 

printf ( "nTop = %d\n" , nTop) ; 

/* pnet->TrainSize = 510; */ 
fgets (str, 256, fp) ; 
pnet->TrainSi2e = atoi (str); 

fprintf (fLog, "TrainSize = %ld\n" ,pnet->TrainSize) ; 
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printf ("TrainSize = $ld\n" , pnet->TrainSize) ; 

/* pnet->Sigma [0] = (REAL) 500; */ 
fgets (str, 256, fp) ; 

pnet ->Sigma [0] = (REAL) atoi (str) ; 

fprintf (fLog, "report every %d passes\n", (int) pnet->Sigma [0] ) ; 
printf ("report every %d passes \n" , (int) pnet- >Sigma [0] ) ; 

/* NumPasses = 999L; */ 
fgets (str, 256, fp) ; 
NumPassas = atol (str) ; 

fprintf (fLog, "NumPasses = *ld\n" , NumPasses) ; 
printf ("NumPasses = %ld\n" , NumPasses ) ; 

/* setup the ChiSq and SA lists */ 
nAvailVars = 0; 

for(n=0; n<pnet->MaxPEs [0] ; n++) { 
fgets (str, 256, fp) ; 
ChiSqList [n] = (short) atoi (str) ; 
~ /* add code for initial set of vars */ 

if (ChiSqList [n] < 0) { 
S ChiSqList [n] = -ChiSqList [n] ; 

ImpVar [ChiSqList [n] - 1] = NORMUSE; 

.2 SAList tn] = (short) atoi (strchr (str , ',') +1) ; 

/* add code to never use these vars */ 
if (SAList [n] < 0) { 

SAList [n] = SAList [n] 

IrapVar [SAList [n] - 1] = NEVER; 
} else { 

nAvailVars += 1; 

} 

'O. fprintf (fLog, " [%02d] ChiSq = %d SA = 

s«* %d\n", n, ChiSqList [n] , SAList [n] ) ; 

printf ("%02d] ChiSq = %d SA = %d\n" ,n, ChiSqList [n] , 

SAList [n] ) ; 
} 

fprintf (fLog, "Availaable Variables = %d\n", n" , AvailVars) ; 

for(n=0; n<nConsensus ; n++) { 
fgets (str, 256, fp) ; 
Seeds in] = atol (str); 

fprintf (fLog, [%02d] Seed = %ld\n", n. Seeds [n] ; 
printf ("%02d] Seed = %ld\n", n. Seeds [n] ) ; 

f close (fLog) ; 
f close (fp) ; 

/* load in the training data */ 
MaxVars = pnet ->MaxPEstO]; 

ImpVarEr r = ( REAL ) 9 9 9 9 . 0 ; 

pnet->TestSize pnet->TrainSize / (long) nPartition; 
pnet ->Learn. Flag = 1; 
dd_allocate_net (NetNum) ; 

/* set up special processing for inputs */ 
dd_set_inputs_f\inc (NetNum, partition_get_input_data) ; 

if ( AllocTm (NetNum, (short) 1, (short) pnet->TrainSize+10) < 0) { 
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printf ("Error Allocating Training set! \n") ; 
exit (0) ; 

} 

d.d_get_tm_array (NetNum, STrnData) ; 

ReadTrnSet (NetNum, (short) 1, (short) pnet->TrainSize, TrnFileName) ; 
pnet->TrainSize -= pnet->TestSize; 

/* copy ImpVar list to InputFunction list */ 
fLog = fopen (LogFileName, "a") ; 
nin = 0; 

for(x = 0; X < MaxVars; x++) { 

if ( ImpVar [x] == NORMUSE) { 

InputFunction [x] = NORMUSE; 
nln++ ; 

printf ("1") ; 

f printf (fLog, "1") ; 
} else if (ImpVar [x] NEVER) { 

InputFunction [x] = EXCLUDE; 

printf (" . ") ; 

f printf (fLog, " . ") ; 
} else { 

InputFunction [x] = EXCLUDE; 

printf ("0") ; 

f printf (fLog, "0") ; 



printf { " initial selection \n" ) ; 

f printf (fLog, " initial selection \n") ; 

f close (fLog) ; 

if (nIn > 0) { 

/* train consensus of networks on the partitioned data */ 

TrainSelection (0 , nIn,NumPasses) ; 

ConsensusErr [0] /= (REAL) nConsensus; 

ConsensusClass [0] /= (REAL) nConsensus ; 

printf ("Initial Consensus Error %f Class %f \n" , 

(float) ConsensusErr [0] , (float) ConsensusClass [0] ) ; 
fLog = fopen (LogFileName, "a" ) ; 

fprintf (fLog, "Initial Consensus Error %f Class %f \n" , 

(float) ConsensusErr [0] , (float) ConsensusClass [0] ) ; 
f close (fLog) ; 

ImpVarErr = ConsensusErr [0] ; 



/* open enumeration file for reading */ 
fEnum. = fopen ("Enum.lst", "r"); 
if (fEnum != NULL) { 

while (fgets (str, 256 , fEnum) != 0) { 

/* generate the combination from the string */ 

X = 0; 

for (k = 0; k < MaxVars ; k++) { 
if (str[k] == '0') { 

InputFunction [k] = EXCLUDE; 
printf ("0") ; 
} else if {str[k] '1') { 

InputFunction [k] = NORMUSE; 
printf ("1") ; 
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X++; 
} else { 

InputFunction [k] = EXCLUDE; 
printf {"?") ; 

printf ("n") ; 

/* evaluate the combination */ 

/* train consensus of networks on the partitioned data */ 

TrainSelection (0, (long) (x) NumPasses) ; 

/* statistics */ 

ConsensusErr [0] /= (REAL) nConsensus; 
ConsensusClass [0] /= (REAL) nConsensus; 
fLog = fopen (LogFileName, "a") ; 
for (i = 0; i < MaxVars; i++) { 

if (InputFunction [i] == NORMUSE) { 
printf ("%2d, ", (int) i+1) ) ; 
fprintf (fLog, "%2d, (int) (i+1); 

} ^ 

printf ("Consensus Error %f Class %f \n", 

(float) ConsensusErr [0] , (float) 

ConsensusClass [0] ) ; 

fprintf (fLog, "Consensus Error %f Class %f \n" , 

(float) ConsensusErr [0] , (float) ConsensusClass 

[0] ; 

^ f close (fLog) ; 

f close (fEnum) ; 

} 

#ifdef NOT 

for(x = 1; X <= nAvailVars; x++) { 

/* generate x at a time combinations */ 
/* initialize the array */ 
for(i =0; i < x; i++) { 
NewVar[i] = i; 

} 

/* iterate through the combinations */ 
do { 

/* set up InputFunction [] from NewVar[] */ 
n = 0; 
k = 0; 

for(i =0; i < MaxVars; i++) { 

InputFunction [i] = NORMUSE; /* EXCLUDE; */ 
if (ImpVar[i] == NEVER) { 

InputFunctionc [i] = EXCLUDE; 

continue; 

if (k < X && NewVar[k] == n) { 

InputFimction[i] = EXCLUDE; /* NORMUSE; */ 
k += 1; 

} 
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/* evaluate the combination */ 

/* train consensus of networks an the partitioned data */ 
TrainSelection{0, (long) (nAvailVars - x) NumPasses) ; 

/* statistics */ 

ConsensusErr [0] /= (REAL) nConsensus; 
ConsensusClass [0] /= (REAL) nConsensus; 
fLog = fopen(LogFileName, "a") ; 
for(i =0; i < MaxVars; i++) { 

if (InputFunction[i] == NORMUSE) { 
printf ("%2d, ", (int) <i+l) ) ; 

^ fprintf (fLog, "%2d, (int) (i+1) ) ; 

printf ("Consensus Error %f Class %f \n", 

(float) ConsensusErr [0] , (float) ConsensusClass [0] ) 
fprintf (fLog, "Consensus Error %f Class %f \n", 

(float) ConsensusErr [0] , (float) ConsensusClass [0] ) ; 
f close (fLog) ; 

/* geneerate next selection */ 
for(i = x-1; i>=0; i--) { 

NewVar [i] ++,- 

for(k = i+1; k < x; k++) { 

NewVar [k] = NewVar [k-1] + 1; 

if (NewVar [x-1] < nAvailVars) { 
break ; 

) ' 

} while (NewVar [x-1] < nAvailVars); 



/* start the process of generating the important variables */ 
do { 

/* training data contains all variables */ 

/* use special array for getting inputs to network */ 

* determine the variables to use in the current run */ 

/* build list from ChiSq and SA */ 

nNewVar = 0; 

for(x = 0; X < MaxVars; x++) { 

if (ImpVar [SAList [x] -1] == EXCLUDE) { 

NewVar [nNewVar] = SAList [x] - (short) 1; 
ImpVar [SAList [x] -1] = USED; 
nNewVar++ ; 

if (ImpVar [ChiSqList [x] -1] == EXCLUDE) { 

NewVar [nNewVar] = ChiSqList [x] - (short) 1; 
ImpVar [ChiSqList [x -1] = USED; 
nNewVar++ ; 

} 

if (nNewVar >= nTop) break; 

/* work through the list of new variables */ 
fLoq = fopen (LagFileName, "a" ) ; 
for (n = 0; n < nNewVar; n++) { 

/* copy ImpVar list to InputFunction list */ 

nin = 0; 
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for(x = 0; X < MaxVars; x-i-+) { 

if (ImpVar [x] == NORMUSE) { 

InputFunction [x] = NORMUSE; 
nln++; 

print f ("1") ; 

f printf (fLog, "1") ; 
} else if (ImpVar [x] == NEVER) { 

InputFunction [x] = EXCLUDE; 

printf ("."); 

fprintf (fLog, "."); 
} else { 

InputFunction [x] = EXCLUDE; 

printf ("0") ; 
^ fprintf (fLog, "0"); 

InputFunction fNewVar [n] ] = NORMUSE; 
nln++ ; 

printf ("...+ %d.\n" , NewVar [n] +1) ; 
fprintf (fLog, " . . . + %d\n" , NewVar [n] +1) ; 
f close (fLog) ; 

/* train consensus of networks on the partitioned data */ 

TrainSelection (n, nin, NumPasses) ; 

ConsensusErr [n] /= (REAL) nConsensus ; 

ConsensusClass [n] /= (REAL) nConsensus ; 

printf ("Var %d Consensus Error %f Class %f \n" , 

(int) NewVar [n]+l, 

(float) ConsensusErr [n] , (float) ConsensusClass tn] ) ; 
f Log = f open (LogFileName, "a") ; 

fprintf (fLog, "Var %d Consensus Error %f Class %f \n" , 

(int) NewVar [n] +1, 

(float) ConsensusErr [n] , (float) 

ConsensusClass [n] ) ; 

f close (fLog) ; 

/* Test of the list of variables is complete */ 
/* Find the best variable based an error */ 

BestErr = (REAL) 999999 . 0 ; 
BestVar = -1; 

for(n=0; n< nNewVar; n++) { 

if (ConsensusErr [n] < BestErr) { 
BestErr = ConsensusErr [n] ; 
BestClass = ConsensusClass [n] ; 
^ BestVar = NewVar [n] ; 

/* Is there a variable that improved the ImpVar list Error */ 
/* Add the variable to the list of important variables */ 
if (BestErr < ImpVarErr) { 

ImpVar [BestVar] = NORMUSE; 
ImpVarErr = BestErr; 

printf ("Added %d to Imp Var List Error = %f Class = 



%f\n", 

BestCla 



(int) BestVar+1, (float) BestErr, (float) 
fLog = fopen (LogFileName, "a") ; 

fprintf (fLog, "Added %d to Imp Var List Error = %f Class 
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(int) BestVar+1, (float) BestErr, (float) 

lass) ; 

f close (f Log) ; 

for(x=0; x<MaxVars; x++) { 

/* cleanup from build of new variables list */ 
if (InpVar [x] == USED) ImpVar [x] = EXCLUDE; 

/* if no improvement or no variables remaining, stop */ 
} while (BestVar != -1 && nNewVar > 0) ; 

/* report the list of Important Variables and the Network Error */ 
fLog = fopen. (LogFileName, "a"); 
for(x=0; x<MaxVars; x+-i-) { 

if (ImpVar [x] == NORMUSE) { 

printf ("USE [%d] \n" , (int) x+1) ; 
fprintf (fLog, "USE [%d] \n" , (int) x+1) ; 



f close (fLog) ; 
dd_free_net (NetNum) ; 
if(TmData ! =NULL) { 

FreeTrn (NetNum) ; 

TrnData = NULL; 
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Appendix II 

Copyright (c) 1991-1995 Adeza Biomedical Corporation 
FORMl.FRM - 1 

' Neural Network, Function Declarations 

Declare Function LoadNet% Lib "TKSDLL.DLL" (ByVal Net%, ByVal NetNameS) 
Declare Function AllocNet% Lib "TKSDLL.DLL" (ByVal Net%) 
Declare Function FreeNet% Lib "TKSDLL.DLL" {ByVal Net%) 

Declare Function ReadWeights% Lib "TKSDLL.DLL" (ByVal Net%, ByVal NetNameS) 
Declare Function LoadWeights% Lib "TKSDLL.DLL" (ByVal Net%, ByVal NetNameS) 
Declare Function ReadParms% Lib "TKSDLL.DLL (ByVal Net%, ByVal NetNameS) 
Declare Function LoadParms% Lib "TKSDLL.DLL" (ByVal Net%, ByVal NetNameS) 
Declare Function WriteWeights% Lib "TKSDLL.DLL" (ByVal. Net%, ByVal 
Net .Names) 

Declare Function SaveWeights% Lib "TKSDLL.DLL" (ByVal Net%, ByVal NetNameS) 
Declare Function WritePa2rms% Lib "TKSDLL.DLL," (ByVal. Net%, ByVal 
NetNameS) 

Declare Function SaveParms% Lib "TKSDLL.DLL" (ByVal. Net%, ByVal NetNameS) 
Declare Function Putlnput# Lib "TKSDLL.DLL" (ByVal. Net%, ByVal. nln%, 
pln#) 

Declare Function PutState# Lib "TKSDLL.DLL" (ByVal Net%, ByVal Layer%, 
Byval nSt%, pSt#) 

Declare Function PutOutput# Lib "TKSDLL.DLL (ByVal Net%, ByVal nSt%, pSt#) 
Declare Function PutTm# Lib "TKSDLL.DLL" (ByVal Net%, ByVal nln%, pln#) 
Declare Function PutWeight# Lib "TKSDLL.DLL" (ByVal Net%, ByVal Layer%, 
ByVal pe%, ByVal nWt%, pWt#) 

Declare Function PutParm# Lib "TKSDLL.DLL" (ByVal Net%, ByVal ParmNameS, 
ByVal Layer%, pWt#) 

Declare Function Getlnput# Lib "TKSDLL.DLL: (ByVal Net%, ByVal. nln%) 
Declare Function GetState# Lib "TKSDLL.DLL" (ByVal Net%, ByVal Layer%, 
ByVal nSt%) 

Declare Function GetOutputi Lib "TKSDLL.DLL" (ByVal Net%, ByVal nSt%) 
Declare Function GetWeight# Lib "TKSDLL.DLL" (ByVal Net%, ByVal Layer%, 
ByVal pe%, ByVal nWt%) 

Declare Function GetParm# Lib "TKSDLL.DLL" (ByVal Net%, ByVal ParmNameS, 
ByVal Layer%) 

Declare Function GetTmt Lib "TKSDLL.DLL" (ByVal Net%, ByVal nln%) 

Declare Function GetNumInputs% Lib "TKSDLL.DLL" (ByVal Net%) 

Declare Function GetNumOutputs% Lib "TKSDLL.DLL" (ByVal Net%) 

Declare Function GetNumPEs% Lib "TKSDLL.DLL" (ByVal Net%, ByVal Layer%) 

Declare Function GetNumLayers% Lib "TKSDLL.DLL (ByVal Net%) 

Declare Function InitializeWts% Lib "TKSDLL.DLL" (ByVal Net%) 

Declare Function Train. Net% Lib "TKSDLL.DLL" (ByVal Net%) 

Declare Function IterateNet% Lib "TKSDLL.DLL" (ByVal Net%) 

Declare Function IsNetAvail% Lib "TKSDLL.DLL" (ByVal Net%) 

Declare Function PutGrade% Lib "TKSDLL.DLL" (ByVal Net%, pGrade#) 

Declare Function GetWtsGrade# Lib "TKSDLL.DLL" (ByVal Net%) 

Declare Function AdjustWts% Lib "TKSDLL.DLL" (ByVal Net%) 

Declare Function GetBestWts% Lib "TKSDLL.DLL (ByVal. Net%) 

Declare Function AllocTrn% Lib "TKSDLL.DLL" (ByVal Net%, ByVal 

InclDesired%, ByVal NumExamples%) 

Declare Function FreeTrn% Lib "TKSDLL.DLL" (ByVal Net%) 
Declare Function PutTrnData# Lib "TKSDLL.DLL (ByVal Net%, ByVal 
InclDesired% ByVal Example%, ByVal Offset%, pVal#) 
Declare Function GetTrnData# Lib "TKSDLL.DLL (ByVal Net%, ByVal 
InclDesired%, ByVal Example%, ByVal Offset%) 

Declare Function ReadTrnSet% Lib "TKSDLL.DLL" {ByVal Net%, ByVal 
InclDesired%, ByVal NumExamples%, ByVal NetNameS) 

Declare Function BatchTrain% Lib "TKSDLL.DLL (ByVal Net%, ByVal MaxPasses%, 
pTarge tError# ) 



FORMl.FRM - 2 
' Variables 
Dim Age 
Dim NetAge # 
Dim NetPacks# 
Dim NetBirth# 
Dim NetPreg# 
Dim NetAbort# 
Dim NetDiabetes# 
Dim NetPregHTN# 
Dim NetHxEndo# 
Dim NetDysmen# 
Dim NetPelPain# 
Dim NetPAP# 
Dim NetHxPelSur# 
Dim NetMedHxtt 
Dim NetGenWarts# 
Dim NetElisatt 

Sub RunNets () 
Com = 0 
Con2 = 0 

if NetElisa# = 0# Then 

NetAget = (Age - 32.07688) / 5.226876 
For i = 0 To 7 

a = Put Input (i, 1, NetAge#) 

a = Putlnput(i, 2, NetDiabetes#) 

a = Putlnputd, 3, NetPregHTN#) 

a = Putlnputd, 4, NetPacks#) 

a = Putlnput (i, 5, NetPreg#) 

a = Putlnputd, 6, NetBirthi) 

a = Putlnput (i, 7, NetAbort#) 

a = Putlnput (i,. 8, NetGenWarts# 

a = Putlnput (i, 9, NetPAP#) 

a = Putlnput (i, 10, NetHxEndo#) 

a = Putlnputd, 11, NetHxPelSur#) 

a = Putlnputd, 12, NetMedHx#) 

a = Putlnputd, 13, NetPelPain#) 

a = Putlnput (i, 14, NetDysmen#) 

a = IterateNet (i) 

Conl = Conl + GetState{i, 3, 1) 

Con2 = Con2 + GetState(i, 3, 2) 

Next i 

Else 

NetAge# = Age 
For i = 8 To 15 



a 




Putlnput (i. 


1, 


NetAge#) 


a 




Putlnput (i. 


2, 


NetDiabetes#) 


a 




Putlnput (i, 


3, 


NetPregHTN#) 


a 




Putlnput d , 


4, 


NetPacks#) 


a 




Putlnput (i , 


5, 


NetPreg#) 


a 




Putlnput (i. 


6, 


NetBirth#) 


a 




Putlnput (i, 


, 7 


, Net Abort #) 


a 




Putlnput d. 


8, 


NetGenWarts#) 



FORMl FRM - 3 

a = Putlnput (i, 9, NetPAP#) 

a = Putlnput (i, 10, NetHxEndo#) 

a = Putlnputd, 11, NetHxPelSur#) 

a = Putlnput d, 12, NetMedHx#) 
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a = Putlnputd, 13, NetPelPain#) 
a = Putlnput(i, 14, NetDysmen#) 
a = Putlnputd, 15, NetElisa#) 
a = IterateNet (i) 
Com = Com + GetState (i, 3, 1) 
Con2 = Con2 + GetState (i, 3, 2) 

Next i 

End If 

Conl = Conl / 8 
Con2 = Con2 / 8 
Text 2. Text = Conl 
Text4 . Text = Con2 

' Generate Score 

If NetElisa# = 0# Then 

Score = (Conl - Con2) * 25 

Else 

Score = (Conl - Con2) * 18 

End If 

Texts. Text = Score 
End Sub 

Sub Checkl_Click () 

NetDiabetes# == 1# - NetDiabates# 

RunNets 
End Sub 

Sub Check2_Click () 

NetDysmen# = 1# - NetDysmen# 

RunNets 
End Sub 

Sub Check3_Click () 

NetPAP# = 1# - NetPAP# 

RionNets 
End Sub 

Sub Check4_Click () 

NetPelPain# = 1# - NetPelPain# 

RunNets 
End Sub 

Sub Check5_Click () 

NetHxPelSur# = 1# = NetHxPelSur# 

RunNets 
End Sub 

Sub Check6_Click () 

NetMedHx# = 1# - NetMedHx# 
RunNets 
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End Sub 

Sub Check7_Click () 

NetGenwarts# = 1# - NetGenWarts# 

RunNets 
End Sub 
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Sub Check8_Click () 

NetPregHTN# = 1# - NetPregHTN# 

RunNets 
End Sub 

Sub Check9_Click () 

NetHxEndo# = 1# - NetHxEndo# 

RiinNets 
End Sub 

Sub Commandl_Click() 
Age =30 

Text 1. Text = Age 

NetAge# = (Age - 32.07688) / 5.226876 

NetPacks# = 0# 

Texts. Text = NetPacks# 

Text 2. Text = "Not Run" 

Text4.Text = "Not Run" 

NetPregtt = 0# 
i Texts. Text = NetPreg# 

Z NetBirth# = 0# 

Text 6. Text = NetBirth# 

NetAbort# = 0# 
-"'^ Text7.Text = NetAbort# 

NetElisa# = 0# 
If: Text?. Text = Net.Elisa# 

j_ NetDiabetes# = 0# 

Checkl . Value = 0 

NetPregHTN# = 0# 
?=* Check8. Value = 0 

'd NetHxEndo# = 0# 

Checks. Value = 0 
\^ NetDysmen# = 0# 

»=■ Check2. Value = 0 

I'U NetPelPain# = 0# 

Check4 . Value = 0 

NetPAPt = 0# 

Checks. Value = 0 

NetHxPelSur# = 0# 

Checks. Value = 0 

NetMedHx# = 0# 

Checks. Value = 0 

NetGenWarts# = 0# 

Check? . Value = 0 

End Sub 
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S\ib CoTnmand2_Click () 

End 
End Sub 

Sub Form_Load () 

a = LoadNet(0, "patO? _0") 

If a <> 0 Then GoTo mess 

a = LoadNet(l, "patO?_l") 

If a <> 1 Then GoTo mess 
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a = LoadNet{2, "pat07_2") 
If a <> 2 Then GoTo mess 
a = LoadNetO, "pat07_3") 
If a <> 3 Then GoTo mess 
a = LoadNet(4, "pat07_4") 
If a <> 4 Then GoTo mess 
a = LoadNet(5, "pat07_5") 
If a <> 5 Then GoTo mess 
a = LoadNet(5, "pat07_6") 
If a <> 6 Then GoTo mess 
a = LoadNet(7, "pat07_7") 
If a <> 7 Then GoTo mess 
a = LoadNet(8, "crfel2_0") 
If a <> 8 Then GoTo mess 
a = LoadNetO, "crfel2_l") 
If a <> 9 Then GoTo mess 
a =. LoadNetdO, "crfel2_2") 
If a <> 10 Then GoTo mess 
a = LoadNetdl, "crfel2_3") 
If a <> 11 Then GoTo mess 
a = LoadNet(12, "crfel2_4") 
If a <> 12 Then GoTo mess 
a = LoadNetdS, "crfel2_5") 
If a <> 13 Then GoTo mess 
a = LoadNet(14, "crfel2_6") 
If a. <> 14 Then GoTo mess 
a = LoadNetdS, "crfel2_7") 

If a <> 15 Then Text4.Text = a + "No GOOD" 
'initialize variables 

Age = 30 

Text 1. Text = Age 

NetAge# = (Age - 32.07688) / 5.226876 

NetPacks# = 0# 

Text 3. Text = Net Packs # 

Text2.Text = "Not Run" 

Text4.Text = "Not Run" 

NetPreg# = 0# 

Texts. Text = NetPreg# 

NetBirth# = 0# 

Texts. Text = NetBirth# 

NetAbort# = 0# 

Text7 . Text = NetAbort# 

NetElisa# = 0# 

Text 9. Text = NetElisa# 
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NetDiabetes# = 0# 
NetPregHTN# = 0# 
NetHxEndo# = 0# 
NetDysmen# = 0# 
NetPelPain# = 0# 
NetPAPtt = 0# 
NetHxPelSur = 0# 
NetMedHxt = 0# 
NetGenWarts# = 0# 
End Sub 

Sub Textl_Change () 
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Age = Val (Text 1 .Text) 
RunNets 
End Sub 

Sub Text l_Lo St Focus {) 

RunNets 
End Sub 

Sub Text3_Change {) 

NetPackstt = Val (Text 3 .Text) 

RunNets 
End Sub 

Sub Text 3_LostFocus () 

RunNets 
End Sub 

Sub Text5_Change () 

NetPreg# = Val (Texts .Text) 

RunNets 
End Sub 

Sub Text5_LostFocus () 

RunNets 
End Sub 

Sub Text6_Change () 

NetBi2rth# Val (Texte.Text) 

RunNets 
End Sub 

Sub Text6_LostFocus () 

RunNets 
End Sub 

Sub Text7_Change () 

NetAbort# = Val (Text7.Text) 

RunNets 
End Sub 

Sub Text7_LostFocus () 

RunNets 
End Sub 



FORMl.FRM - 7 

Sub Text9_Change () 

If Val(Text9.Text) <= 0# Then 
NetElisa# = 0# 

Else 

NetElisa# = Log (Val (Texts .Text) 

End If 
RunNets 
End Sub 

Sub Text9_LostFocus () 

RunNets 
End Sub 
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Appendix III 

Copyright (c) 1991-1995 Adeza Biomedical Corporation 

aa_nets.h revised 7/1/95 

Copyright (c) 1991-1995 Logical Designs Consulting Inc. 

/*This include file works for both DLL and DOS environments /* 

/*The following define determines the floating point precision */ 
/* Do not change it unless you intend to all source files */ 
#define USE -DOUBLES 

#ifdef USE_DOUBLES 
#define REAL double 
#define SIG_LIM1T 44.0 
#else 

#define REAL float 

i,,s. #define SIG_LIMIT 3 0.0 

#endif 

IJi /* The following prevents multiple inclusion of this header file */ 

„g #ifndef _AA_NETS_H_ 

|lj #ifndef _AA_NETS_H_ 

fcM /* The following prevents C++ compiler from mangling names */ 

#ifdef cplusplus 

flp extern "C" ( 

ji #endif /* -cplusplus */ 

fi 

#ifdef _WINDOWS 
#include <windows.h> 

M #endif 

M 

m #include <stdio.h> 

#include <stdlib.h> 
#include <math.h> 
#include <string.h> 

/* Uncomment the following to enable user messages */ 
#def ine AA_ENABLE_USER_MESSAGES 

#ifdef _WINDOWS 
#ifdef WIBr32 
#define HUGE 
#define EXPORT 
#else 

#define HUGE _huge 
#define EXPORT _export 
#endif 
#else 

typedef unsigned short HANDLE; 
#define PASCAL 

#ifdef MSC ^APPL 

#include <malloc.h> 
#include <conio.h> 
#define HUGE huge 
#define FAR _far 
#define EXPORT 
#endif 
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#ifdef BC_APPL 
#include <alloc.h> 
#include <conio.h> 
#define FAR 
#define HUGE huge 
#define EXPORT 
#endif 

#ifdef SC_APPL 
#include <dos.h.> 
# inc lude < conio . h> 
#define FAR 
#define HUGE _huge 
#define EXPORT 
#endif 

#ifdef XMIX_ APPL 
#define FAR 
# define HUGE 
# define EXPORT 
ftendif 

#ifdef WD32_APPL 
# include <conio.h> 
#define FAR 
#define HUGE 
#define EXPORT 
#endif 

#endif 

#define MAX LAY! 

#define NU14-NE' 



32 



struct ddnet { 

/* Network Description Parameters 
long NetArch; 
arrangement */ 

long nLayers ; 

layers in the net */ 

long MaxPEs [MAX_IaAYERS] 

(for Mallocs) */ 

long nPEs [MAX_LAYERS] ; 

long PEFunc [iyiAX_LAYERS] ; 

Fuinction */ 

long PETrans [MAX_rjAYERS] 

Transfer Function */ 

long 
routine) */ 
long 



routine) */ 
long 

routine) */ 
long 

routine) */ 
long 

routine) */ 



oIn{MAX_LAYERS] ; 
oWtS (MAX_LAYERS] ; 
oOut (MAX_LAYERS] ; 
nIn[MAX_LAYERS] ; 
nWtS [MAX_LAYERS] ; 



/ * Network Training Parameters * 
long LearnFlag; /* 

long BatchSize; /* 



/* network interconnection 

/* The total number of 

/* max Processing Elements 

/* number of hidden */ 

/ * Processing Element 

/* Processing Element 

/* offset of Layer Inputs (init 

/* offset of Weights (from init 

/* Offset of Layer Outputs (init 

/* count of Layer Inputs (init 

/* total number of weights (init 



0=disable l=enable */ 
parameter for batching */ 



-2- 
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i;:3 

a 

m 
m 
m 



o 
ry 



*/ 



long 
long 
long 
long 
long 



REAL 
REAL 
long 
trial units 

long 
nets */ 

long 
set */ 

long 
and testing 
long 

performance measurement 



TrainSize; 
TestSize; 
InitWtsFlag; 
RandSeed ; 
NetErrorType ; 

ErrorTol ; 
InputNoise; 
nTrialPEs; 

RcrOpsPerlter; 

TrnSequence ; 

TestWhileTrn; 
ClassMethod; 



/* parameter for preprocessing */ 

/* parameter for preprocessing */ 

/* 0=No l=Initialize weights */ 

/* for random number generator */ 

/* kind of error to minimize by net 

/* Error Tolerance for training */ 

/* Error Tolerance for training */ 

/ * for growing algorithm, number of 

/* ops per iteration for recurrent 

/* order of presentation of training 

/* Controls processing fro training 

/* Method used to to classification 



*/ 

long 
layer */ 

long 
only */ 

REAL 

REAL 

*/ 

REAL 

*/ 

REAL 

*/ 

REAL 
parameters *, 

REAL 
rule used */ 
REAL 
REAL 
REAL 
REAL 
REAL 
REAL 
REAL 



NetRule [MAX_LAYERS] ; 

IterLimit [MAX_X LAYERS] ,- 

InitWtsVal [MAX_LAYERS] ; 
Xf erOf s [MAX_LAYERS] ; 

PESigma (iy[AX_LAYERS] ; 

PEMu[MAX_LAYERS] ; 

Alpha [MAX -LAYERS] ; 

Beta[MAX_LAYERS] ; 

Gamma [MAX_LAYERS] ; 
Delta [MAX_LAYERS] ; 
Epsilon [MAX_LAYERS] ; 
Theta [MAX-YERS] ; 
Lambda [MAX_LAYERS] ; 
Mu[MAX_LAYERS] ; 
Sigma [MAX_LAYERS] ; 



weight adjustment by 
for growing algorithms 



multiplier for grand ( ) */ 
/* offset for XferPrime 

Initial Sigma for LI, L2, RBF 

Learning factor for PESigma 

/* learning rule 

/* Values dependent on learning 



/* 
/* 



REAL WtsDecay {MAX_LAYERS] ; 

/* Network pointers (not all are allocated for a given network) */ 

REAL HUGE *pCurWts; ' /* pointer to current wieghts */ 

REAL HUGE *pBestWts; /* pointer to best wieghts */ 

REAL HUGE *pGateWts; /* pointer to spare weights */ 

HUGE *pDirWts; /* pointer to direction wieghts 

HUGE *pBiasWts; /* pointer to bias weights */ 

HUGE *pTempWts; /* pointer to spare weights */ 

HUGE *pNetSts; /* pointer to the weighted sums 

HUGE *pASts; /* pointer to the states for PE 

HUGE *pBSts; /* pointer to the states for PE 

HUGE *pDelSts; /* pointer to the states deltas 

HUGE *pTrnSts; /* pointer to the training states 



REAL 

*/ 

REAL 
REAL 
REAL 

states */ 
REAL 

outputs */ 
REAL 

outputs */ 
REAL 

*/ 

REAL 

*/ 
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REAL 
REAL 
Stats */ 
REAL 

*/ 

REAL 
REAL 
REAL 



output & trial unit */ 
REAL HUGE 

& trial unit */ 

long HUGE 

pe element */ 



HUGE 
HUGE 



HUGE *pErrSumSts; 



HUGE 
HUGE 
HUGE 



*pErrSts; /* pointer to the Error stats */ 

*pPriorErrSts; /* pointer to the Prior Error 

/* pointer to the Error Sum stats 

*pBiasSts; /* pointer to the Bias stats */ 

*pProbSts; /* pointer to the Prop stats */ 

*pCovMat; /* pointer to covariance by 

*pLastCovMat ; /* pointer to prior cov by output 

*poWts; /* pointer to weights offsets by 



/* The 
HANDLE 
HANDLE 
HANDLE 
HANDLE 
HANDLE 
HANDLE 
HANDLE 
HANDLE 

HANDLE 

HANDLE 
HANDLE 
HANDLE 
HANDLE 
HANDLE 
HANDLE 
HANDLE 
HANDLE 
*/ 

HANDLE 
*/ 

HANDLE 



following is to insure DLL compatibility 



hCurWts; 
hBestWtS; 
hCateWts; 
hDirWts; 
hBiasWts; 
hTempWts; 
hNetSts; 
hASts; 

hBSts; 



hDelSts; /* 
hTrnSts; /* 
hErrSts; /* 
hPriorErrSts ; 
hErrSumSts; /* 
hBiasSts; /* 
hProbSts; /* 
hCovMat; /* 

hLastCovMat ; / * 

hoWts; /* 



V 



HANDLE to current wieghts */ 
HANDLE to best wieghts */ 
HANDLE to spare weights */ 
HANDLE to direction wieghts */ 
HANDLE to bias weights */ 
HANDLE to spare weights */ 
HANDLE to the weighted sums states */ 
/* HANDLE to the states for PE outputs 



/* 



HANDLE to the states for PE outputs 



HANDLE to the states deltas */ 
HANDLE to the training states */ 
HANDLE to the Error stats */ 

/* HANDLE to the Prior Error stats */ 
HANDLE to the Error Sum stats */ 
HANDLE to the Bias stats */ 
HANDLE to the Prop stats */ 
HANDLE to covariance by output & trial 

HANDLE to prior cov by output & trial 

HANDLE to weights offsets by pe element 



/* Network Training Statistics and Globals 



long 


Iteration; 


/* 


iteration count */ 


long 


OperMode ; 




long 


TrialPick; 






long 


CurCnt [MAX- LAYERS] / 






long 


TrainingMode ; 


/* 


In Training Testing or 


Sensitivxty analysis */ 




long 


^ TrnMaxErrSample; 


/* 


Training Example with 


Maximum Error 






long 


TmClassCorrect ; 


/* 


Training set Correct 


count */ 






long 


TstMaxErrSample ; 


/* 


Test Example with 


Maximum Error 






long 


TstClassCorrect ; 


/* 


Training set Correct 


count */ 






REAL 


TrnError ; 


/* 


Training Set Error 


Statistic */ 






REAL 
Statistic */ 


TrnMaxError; 


/* 


Training Set Error 


REAL 


TrnClassPercent ; 


/* 


Training Set Error 


Statistic */ 
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REAL 

*/ 

REAL 
Statistic */ 
REAL 

*/ 

REAL 
MFA networks 
REAL 
REAL 
REAL 

*/ 

REAL 

*/ 

REAL 



TstError; 

TstMaxError ; 

TstClassPercent ; 

PETemp , MAX_LAYERSI ; 

LastVal (MAX_LAYERS) ; 
CurTemp [MAX_LAYERS] ; 
CurErr [MAX_LAYERS] ; 

LastErr(MAX_LAYERS] ; 

BestErr [MAX_LAYERS] ; 



/* Test Set Error Statistic 

/* Test Set Error 
/* Test Set Error Statistic 
/* Temperature for Hopfield 
/* current step size */ 
/* to error fimction value 
/* to error function value 
/* best error value */ 



ttifndef max 
#define max(a,b) 
#define min(a,b) 
#endif 

#ifndef fabs 
#define fabs (a) 
#endif 

#ifndef ffsgn 
#define ffsgn (a) 
#endif 



({{a)>(b))?(a) : (b)) 
(((a)<(b))?(a) :(b)) 



(( (a)>=0.0)?(a) : (-a) ) 



(((a)>0.0)?(1.0) : (((a) ==0.0)? (0.0) : (-1.0))) 



/* DEFINES for input layer preprocessing */ 
#define NO_PREPROC 0 

#define MEAN_STD 1 

#define MAX_MIN 2 

#define SUM_1 3 

#define SUM_SQ-1 4 



-/ 

#def ine 
ttdefine 
#define 
#def ine 
#def ine 
#define 
#def ine 
#def ine 



I 

#def ine 
#define 
#define 
#define 
#define 
#define 
#def ine 
#def ine 



for Network Error form 
MEAN_SQ_ERR ' 1 

MEAN_ABS_ERR 
HYPER_SQ_ERR 
BI_HYPER_SQ_ERR 4 
MEAN_4PW_ERR 
CROS_ENTROPY 
CLASS_ERR 7 
USER_DEFINED \ 

for Network Architecture 
FEED_FORWARD 

FF_CON_PRIOR : 
TOTAL_RCR 3 
PRIOR_RCR 

CASCADE I 
CASCADE_RCR 6 
ELMAN_RCR 7 
JORDAN RCR 8 



/* DEFINES for the PE Functions */ 
#define DOT_PROD 
#define L2_DIST 
idefine LI DIST 



-5- 



#define 


QUAD SUM 


4 




#define 


RADIAL 




5 


#define 


SIGMA PI 




6 


#def ine 


GRNN SUM 




7 


#ifdef 


AG CUSTOM 






#def ine 


FUZZ APP 




8 


#def ine 


GEN SIG PI 


9 




#endif 








/* DEFINES 


for Transfer Functions 


*/ 


#define 


SIGMOID 




1 


#def ine 


BI SIGMOID 


2 




#def ine 


ATAN 


3 




#define 


BI ATAN 




4 


#define 


SIN 




5 


#define 


BI SIN 




6 


#def ine 


LINEAR 




7 


#def ine 


THRES LINEAR 




8 


l^def ine 


BI THRES LINEAR 


9 




#def ine 


THRESHOLD 


10 




#define 


BI THRESHOLD 




11 


idefine 


GAUSS 


12 




#define 


CAUCHY 




13 


#define 


WIN TAKE ALL 




14 


#def ine 


PERIODIC SIN 




15 


#def ine 


STCH THREES 


16 




#def ine 


STCH BI THRES 




17 


#def ine 


MFA THRES 


18 




#define 


MFA BI THRES 




19 


/* DEFINES 


for Training set ordering */ 


#def ine 


NORMAL 




0 


#define 


RANDOM 




1 


#def ine 


SHUFFLE 




2 


#define 


TD_RE VERSE 


3 




/* DEFINES 


for Learning Rules for NetRule [layer] */ 


#define 


NONE 


0 




#def ine 


BACK PROP 


1 




#define 


QUICK PROP 


2 




#define 


JACOBS PROP 


3 




#define 


KOHONEN WTA 


4 




#define 


SIM ANNEAL 


5 






RECURRENT BP 




6 


#define 


KOHONEN LVQ 


7 




# define 


CASCADE CORR 




a 


#define 


SW RAND OPT 


9 




#define 


SIMPLEX SA 


10 




#define 


POWELL OPT 


11 




#define 


CONJ GRAD 


12 




#def ine 


PROB NET 




13 


idefine 


GEN REG NET 


14 




#def ine 


LEVEN MARQ 


15 




idefine 


NUM_ALGO 


16 




/* DEFINES 


for CASCADE CORR 


growing 


algorithms OperMode 


idefine 


TRIAL ADJ 




1 


idefine 


OUTPUT ADJ 


2 




idefine 


GLOBAL ADJ 


3 




idefine 


MAX CAPACITY 




4 
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/* DEFINES for GRNN OperMode */ 
#define LOAD_TRN 1 

#define SIG]yiA_ADJ 2 

/* DEFINES for Classification Method */ 
#define BEST_PICK 0 

#define WITHIN_TOL 1 

/* The following is defined when error message displays should be shown */ 
ttdefine AA_SHOW_ERROR_MES SAGES 



return codes */ 
AA_ERROR_NONE 
AA_ERROR_OPEN_PARMS_FILE 
AA_ERROR_LOADING_PARMS 
AA_ERROR_CREATE_PARMS_FILE 
AA_ERROR_SAVING_PARMS 
AA_ERROR_NO_EQUAL_IN_PARMS_LINE 
AA_ERROR_IDENTIFIER_IN_PARMS 
AA_ERROR_OPEN_WE IGHTS_FI LE 
AA_ERROR_LOADYNG_WE IGHTS 
AA_ERROR_CRE . ATE_WEIGHTS_FILE 
AA_ERROR_SAVING_WE IGHTS 
AA_ERROR_CRE . ATE_WTS_LOG_FILE 
AA_ERROR_SAVING WTS LOG 



/* Error 
#define 
#def ine 
#def ine 
#define 
#def ine 
#def ine 
#define 
#define 
#def ine 
tdefine 
#define 
#define 
#define 

#def ine 

#define AA_ERROR_ALLOC_poWts { AA_ERROR_ALLOC - 0 ) 

#define AA_ERROR_ALLOCjpNetSts { AA_ERROR_ALLOC - 1 ) 

#def ine ' ' — ' - 

#define 
#define 
#def ine 
#def ine 
#define 

#define AA_ERROR_ALLOC_pErrSumSts ( AA_ERROR_ALLOC - 8 ) 

#define AA_ERROR_ALLOC_pBiasSts ( AA_ERROR_ALLOC - 9 ) 

#define ~ '~ ' 

# define 
#define 
#def ine 
#define 
tdefine 
tdefine 
tdefine 
tdefine 

/* function prototypes reference */ 

/* Visual Basic and Excel functions specific to the DLL library */ 
short FAR PASCAL EXPORT LoadNet (short NetNum, char FAR *pName) ; 
short FAR PASCAL EXPORT LoadWeights (short NetNum, char FAR *pName) ; 
short FAR PASCAL EXPORT ReadWeights (short NetNum, char FAR *pName) ; 
short FAR PASCAL EXPORT LoadParms (short NetNum, char FAR *pName) ; 
short FAR PASCAL EXPORT ReadParms (short NetNum, char FAR *pNaTne) ; 
short FAR PASCAL EXPORT AllocNet (short NetNum) ; 
short FAR PASCAL EXPORT FreeNet (short NetNum) ; 

short FAR PASCAL EXPORT SaveWeights (short NetNum, char FAR *pName) ; 
short FAR PASCAL EXPORT WriteWeights ( short NetNum, char FAR *pName) ; 
short FAR PASCAL EXPORT SaveParms (short NetNum, char FAR *pName) ; 
short FAR PASCAL EXPORT WriteParms (short NetNum, char FAR *pName) ; 



AA 


ERROR ALLOC 


-100 








AA 


ERROR ALLOC_poWtS 


( AA 


ERROR 


ALLOC - 


0 


aa' 


"error ALLOCjpNetSts 


{ aa" 


"error" 


"alloc - 


1 


aa' 


ERROR ALLOC_pAStS 


( aa" 


"error" 


alloc - 


2 


AA" 


ERROR ALLOC_jjBSts 


{ aa" 


"error" 


alloc - 


3 


aa" 


"error ALLOC_pDelSts 


( aa" 


"error" 


ALLOC - 


4 


AA 


ERROR ALLOC_pTrnSts 


( AA 


error" 


alloc - 


5 


AA 


_ERROR_ALLOC_pErrSt s 


( aa" 


"error" 


ALLOC - 


6 


AA 


ERROR ALLOC_pPriorErrSts 


( AA 


error" 


ALLOC - 


7 


AA~ 


"error ALLOC_pErrSumSts 


( aa" 


"error" 


ALLOC - 


8 ; 


aa" 


ERROR ALLOC_pBiasSts 


( aa" 


"error" 


"ALLOC - 


9 : 


aa" 


ERROR ALIiOC__pProbStS 


( AA 


"error 


ALLOC - 


10 


aa" 


"error ALLOC_pCovMat 


( aa" 


"error" 


"alloc - 


11 


AA 


ERROR ALLOC_pLastCovMat 


( AA 


error" 


ALLOC - 


12 


AA 


_ERROR_ALLOC_pCurWt s 


( AA 


"error 


ALLOC - 


13 


AA 


'error ALLOC_pBestWts 


( AA 


"error" 


"alloc - 


14 


AA 


"error ALLOC_pDirWts 


( AA 


"error" 


"ALLOC - 


15 


AA 


ERROR ALLOC_pBiasWtS 


( AA 


"error" 


'ALLOC - 


16 


AA 


ERROR ALLOC_pGateWts 


( AA 


"error" 


"alloc - 


17 


AA 


]ERROR_ALLOC_jpTenipWtS ( AA 


ERROR 


"alloc" 


18 : 


> 
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double FAR PASCAL EXPORT Put Input (short NetNum, short nin, double FAR 

*plii ) ; 

double FAR PASCAL EXPORT PutState (short NetNum, short layer, short 

pe, double FAR *pSt) ; 

double FAR PASCAL EXPORT Putoutput (short NetNum, short nSt, double 

FAR *pSt) ; 

double FAR PASCAL EXPORT PutTrn (short NetNum, short nSt, doiible FAR 

*pSt) ; 

double FAR PASCAL EXPORT PutWeight (short NetNum, short layer, short 

pe, short nWt, double FAR *pWt) ,- 

double FAR PASCAL EXPORT PutParm (short NetNum, char FAR *pName, short 

layer, double FAR *pVal) ; 

double FAR PASCAL EXPORT Getlnput (short NetNum, short nIn) ; 

doxible FAR PASCAL EXPORT GetState (short NetNum, short layer, short 

nSt) ; 

double FAR PASCAL EXPORT GetOutput (short NetNum, short nSt) ; 

double FAR PASCAL EXPORT GetTrn (short NetNum, short nSt) ; 

double FAR PASCAL EXPORT GetWeight (short NetNum, short layer, short 

pe, short nWt) ; 

double FAR PASCAL EXPORT GetParm (short NetNum, char FAR *pName, short 

layer) ; 

short FAR PASCAL EXPORT GetNumlnputs (short NetNum) ; 

short FAR PASCAL EXPORT GetNumOutputs (short NetNum) ; 

short FAR PASCAL EXPORT GetNumPEs (short NetNum, short layer) ; 

short FAR PASCAL EXPORT GetNumLayers (short NetNum) ; 

short FAR PASCAL EXPORT InitializeWts (short NetNum) ; 

short FAR PASCAL EXPORT TrainNet (short NetNum) ; 

Short FAR PASCAL EXPORT IterateNet (short NetNum) ; 

short FAR PASCAL EXPORT IsNetAvail (short NetNum) ; 

short FAR PASCAL EXPORT PutGrade (short NetNum, double FAR *pVal) ; 
double FAR PASCAL EXPORT GetWtsGrade ( short NetNum) ; 

short FAR PASCAL EXPORT AdjustWts (short NetNum) ; 
short FAR PASCAL EXPORT GetBestWts (short NetNum) ; 

short FAR PASCAL EXPORT AllocTm (short NetNum, short InclDesired, short 

nExamples) ; 

short FAR PASCAL EXPORT FreeTrn (short NetNum) ,- 

double FAR PASCAL EXPORT PutTrnData (short NetNum, short InclDesired, 

short example, short offset, double FAR *pVal) ; 

double FAR PASCAL EXPORT GetTmData (short NetNum, short InclDesired, 

short example, short offset) ; 

short FAR PASCAL EXPORT ReadTmSet (short NetNum, short InclDesired, short 
MaxTrn, char FAR *pName ) ; 

short FAR PASCAL EXPORT BatchTrain ( short NetNum, short MaxPasses, double 

FAR *TargetError ) ; 

/* user definable network evaluation function for graded and batched 
learning */ 

void FAR PASCAL EXPORT eval_net (short NetNum, REAL *pRMSError, REAL 
*pMaxError, REAL *pC lassError) ; 

void FAR PASCAL EXPORT dd_set_inputs_f unc (short NetNum, long (FAR PASCAL 
EXPORT *inputs_fn) (short NetNum, long example) ) ; 

void FAR PASCAL EXPORT dd_set_sample_f unc (short NetNum, void (FAR PASCAL 
EXPORT *sample_fn) (short NetNum, long example)); 

void FAR PASCAL EXPORT dd_set jpass_f unc (short NetNum, void (FAR PASCAL 
EXPORT *pass_fn) (short NetNum) ) ; 

/* C language callable functions */ 

void FAR PASCAL dd_get_struct (short NetNum, struct ddnet FAR **pnet) ; 
void FAR PASCAL dd_get_trn_array (short NetNum, float HUGE **ptrndata) / 
short FAR PASCAL dd_allocate_net (short NetNum) ; 
void FAR PASCAL dd_initialize_wts (short NetNum) ; 
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void 


FAR 


PASCAL 


void 


FAR 


PASCAL 


void 


FAR 


PASCAL 


TargetError) ,- 


void 


FAR 


PASCAL 


TargetError) ; 


void 


FAR 


PASCAL 


TargetError) ; 


void 


FAR 


PASCAL 


TargetError) ; 


void 


FAR 


PASCAL 


TargetError) ; 


void 


FAR 


PASCAL 


TargetError) ; 


void 


FAR 


PASCAL 


TargetError) ; 


void 


FAR 


PASCAL 


TargetError) ; 


void 


FAR 


PASCAL 


TargetError) ; 


void 


FAR 


PASCAL 


TargetError) ; 


void 


FAR 


PASCAL 


void 


FAR 


PASCAL 


void 


FAR 


PASCAL 


void 


FAR 


PASCAL 


void 


FAR 


PASCAL 






PASCAL 


void 


FAR 


PASCAL 


void 


FAR 


PASCAL 


void 


FAR 


PASCAL 


void 


FAR 


PASCAL 


void 


FAR 


PASCAL 


void 


FAR 


PASCAL 


void 


FAR 


PASCAL 


void 


FAR 


PASCAL 


void 


FAR 


PASCAL 


void 


FAR 


PASCAL 


void 


FAR 


PASCAL 


void 


FAR 


PASCAL 


void 


FAR 


PASCAL 


void 


FAR 


PASCAL 


void 


FAR 


PASCAL 


void 


FAR 


PASCAL 


void 


FAR 


PASCAL 


void 


FAR 


PASCAL 


void 


FAR 


PASCAL 


void 


FAR 


PASCAL 


void 


FAR 


PASCAL 


void 


FAR 


PASCAL 


void 


FAR 


PASCAL 


void 


FAR 


PASCAL 


void 


FAR 


PASCAL 


void 


FAR 


PASCAL 


void 


FAR 


PASCAL 


void 


FAR 


PASCAL 


void 


FAR 


PASCAL 


void 


FAR 


PASCAL 


void 


FAR 


PASCAL 


void 


FAR 


PASCAL 


void 


FAR 


PASCAL 



dd_free_net (short NetNum) ; 
dd_adjwts (short NetNum) ; 
dd_train_network (short NetNum, 



dd train 



long MaxPasses, double 
sa (short NetNum, long MaxPasses, double 



dd_train_swro (short NetNum, long MaxPasses, double 

dd_train_meb (short NetNum, long MaxPasses, doiible 

dd_train_pow (short NetNum, long MaxPasses, double 

dd_train_cg (short NetNum, long MaxPasses, double 

dd_train_pnn (short NetNum, long MaxPasses, double 

dd_train_grnn (short NetNum, long MaxPasses, double 

dd_train_lm (short NetNum, long MaxPasses, double 

dd_train_by_sample (short NetNum, long MaxPasses, double 

dd_train ( short NetNum ) ,- 
dd_iterate (short NetNum) ; 

dd_preproc (short NetNum) ; 
dd_gendir (short NetNum, short layer) ; 
dd_bstwts (short NetNum, short layer) ; 
dd_curwts (short NetNum, short layer) ; 
dd_otp_ff (short NetNum) ; 
dd_otp_ffcp (short NetNum) ; 
dd_otp_ti (short NetNum) ,- 
dd_otp_pi (short NetNum) ; 
dd_otp_cas (short NetNum) ; 
dd_otp_cas_rcr (short NetNum) ; 
dd_otp_elm_rcr (short NetNum) ; 
dd_otp_jor_rcr (short NetNum) ; 
dd_grad (short NetNum) ; 

dd_grad_mse (short NetNum, short layer) ,- 
dd_grad_mae (short NetNum, short layer) , 
dd_grad_hse (short NetNum, short layer) ; 
dd_grad_bhse (short NetNum, short layer) ,- 
dd_grad_m4pe (short NetNum, short layer) ; 
dd_grad_ce (short NetNum, short layer) ; 
dd_grad_y (short NetNum, short layer) ; 
dd_grad_ff (short NetNum, short layer) ; 
dd_grad_ffcp (short NetNum, short layer) ; 
dd_grad_t_rcr (short NetNum) ; 
dd_grad_cas (short NetNum, short layer) ; 
dd_grad_elm_rcr (short NetNum, short layer) ; 
dd_grad_ j or_rcr (short NetNum, short layer) ; 
dd_adj_bpn (short NetNum, short layer) ; 
dd_adj_qp (short NetNum, short layer) ; 
dd_adj_jacob (short NetNum, short layer) ; 
dd_adj_koh (short NetNum, short layer) ; 
dd_adj_lvq (short NetNum, short layer) 
dd_adj_sa (short NetNum, short layer) ; 
dd_adj_swro (short NetNum, short layer) ; 
dd_grad_cascor (short NetNum) ; 
dd_adj_cascor (short NetNum) ; 
dd_adj_pnn (short NetNum) ; 
dd_adj_gmn (short NetNum) ; 



# 



*name) ; 



dd_adj_lm (short NetNum) ; 
dd_parms (short NetNum) ; 
dd_load_parms (short NetNum, char 
dd_save__parms (short NetNum, char *name) 
dd_read_parms (short NetNum, char *name) ; 
dd_write_parms (short NetNum, char *name) ; 
dd_load_wts (short NetNum, char *name) ; 
dd_save_wts (short NetNum, char *name) ; 
dd_read_wts (short NetNum, char *name) ; 
dd_write_wts (short NetNum, char *name) ; 
dd_print_weights ( short NetNum. ) ; 
dd_log_weights ( short NetNum, char *fname) ; 
dd_add_pe (short NetNum, long layer) ; 
generate_of f sets (short NetNum, long *pTotWts 

user_message (char *str ) ; 
FAR *dd_getmem ( HANDLE *pH, long len) ; 
FAR PASCAL dd freemem (HANDLE *pH, char FAR *pM) 



void FAR PASCAL 
void FAR PASCAL 
short FAR PASCAL 
short FAR PASCAL 
short FAR PASCAL 
short FAR PASCAL 
short FAR PASCAL 
short FAR PASCAL 
Short FAR PASCAL 
short FAR PASCAL 
void FAR PASCAL 
short FAR PASCAL 
void FAR PASCAL 
void FAR PASCAL 
*pMaxWts) ; 
void FAR PASCAL 
char 
void 

void FAR PASCAL add wts 
short NetNum, 
long layer, 
long Ofs, 
long cnt, 
double InitVal) ; 
void FAR PASCAL Xf erFunc ( 
REAL HUGE *pln, 
REAL HUGE *pOut, 
short n, 
short Type, 
REAL *Temp) ; 

void FAR PASCAL Xf erPrime { 
REAL HUGE *pl, 
REAL HUGS *pN, 
REAL HUGE *pO, 
short n, 
short Type) ; 

void FAR PASCAL PeFunc ( 

REAL HUGE *pln, 
REAL HUGE **ppWts, 
REAL HUGE *pOut, 
short nin, 
short nOut , 

short Type) ; 

void FAR PASCAL PePrime ( 

REAL HUGE *pln, 
REAL HUGE *pErrIn, 
REAL HUGE *pWts, 
REAL HUGE *pDir, 
REAL HUGE *pErrOut, 
REAL HUGE *pMu, 
short nIn, 
short nOut , 

short Type) ; 

void FAR PASCAL vamul ( 

REAL HUGE *pA, 
REAL HUGE *pvA, 
REAL HUGE *pB, 
REAL HUGE *pC, 
long n) 

double FAR PASCAL crand (void) ; 

double FAR PASCAL grand (void) ; 
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void FAR PASCAL surand (long idum) ; 
double FAR PASCAL urand (void) ; 

doiible FAR PASCAL xrand (void) ; 

#ifdef _cplusplus 

#endif 

#endif /* AA_NETS_H_ */ 



// mainfrm.cpp : implementation of the CMainFrame class 

#include "stdafx.h" 
#include "PTDinp.h" 

#include "mainfrm.h" 

#ifdef _DEBUG 
iundef THIS_FILE 

Static char BASED_CODE THIS FILE [] = FILE- 

#endif 

IMPLEMENT_DYNCREATE (CMainFrame, CFrameWnd) 

BEGIN_iyiESSAGE_MAP (CMainFrame, CFrameWnd) 
//{{AFX M5G MAP (CMainFrame) 

/7 NOTE - the ClassWizard will add and remove mapping macros 

code ! //DO NOT EDIT what you see in these blocks of generated 

ON WM_CREATE() 
/ /y } AFX_MSG_MAP 
END_MESSAGE_MAP ( ) 

// arrays of IDs used to initialize control bars ' " n ' 1 1 1 1 1 1 1 1 1 1 / 1 1 / 

// toolbar buttons - IDs are command buttons 
static UINT BASED_CODE buttons [] 

// same order as in the bitmap ' toolbar .bmp' 
ID_FILE_OPEN, 

ID_SEPARATOR, 
ID_REC_FIRST, 
ID_REC_PREV, 
ID_REC_NEXT, 
ID_REC_LAST, 

ID_SEPARATOR, 
ID_DATA EDIT, 
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ID_DATA_NEW, 

ID_SEPARATOR, 
ID_REC_GOTO, 

ID_SEPARATOR, 
ID APP ABOUT, 

}; " - 

static UINT BASED_CODE indicators [] = 

ID_SEPARATOR, // status line indicator 

ID_INDICATOR_CAPS , 
ID_IND ICATOR_NUM , 
^ ID_INDICATOR_SCRL, 

1 1 CMamFrame construction/ destruction ///////////// 
CmainFrame : : CmainFrame {) 

^ // TODO: add member initialization code here 

CMainFrame : : -CmainFrame ( ) 

int CMainFrame: :OnCreate(LPCREATESTRUCT IpCreateStruct) 

if (CfraraeWnd: :OnCreate (IpCreateStruct) == -l) 
return -1; 

if ( !m_wndToolBar. Create (this) || 

! m_wndToolBar . LoadBitmap ( IDR_iy[AINFRAME) | | 
! m_wndToolBar . SetButtons (buttons , 

sizeof (buttons) /sizeof (UINT) ) ) 



} 

return 0 



TRACE ("Failed to create toolbar\n") ; 
return -1; // fail to create 

( ! m_wndSt atusBar . Create ( thi s ) | | 
!m_wndStatusBar. Set Indicators (indicators, 
sizeof (indicators) /sizeof (UINT) ) ) 

TRACE ("Failed to create status bar\n") ; 
retuim -1; // fail to create 



#ifdef _DEBUG 

void CMainFrame: :AssertValid() const 
CFrameWnd: : Assert Valid { ) ; 
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} 

void CMainFrame: : Dump (CDumpContext& dc) const 
^ CFrameWnd : : Dump ( dc ) ; 

#endif //_DEBUG 



// mainfrm.h : interface of the CMainFrame class 

/%;;^;^^^;^;;^;^;;;^^;;;;;;;;;;;^;^;;;;^;;;;^;^^;;;;^^;;^;^;;;^;;;^;////// 

class CmainFrame : public CFrameWnd 

protected: // create from serialization only 
CmainFrame ( ) ; 

DECLARE_DYNCREATE (CMainFrame) 

//Attributes 
pxiblic : 

// Operations 
public : 

// Implementation 
public : 

virtual -CmainFrame ( ) ; 
#ifdef_DEBUG 

virtual void Assert Valid () const; 

virtual void Dump (CDumpContext& dc) const; 

#endif 

protected: // control bar embedded members 
CStatusBar m_wndStatusBar; 
CToolBar m_wndToolBar ; 

/ / Generated message map functions 
protected: 

// { {AFX_MSG (CMainFrame) 

afx_msg int OnCreate (LPCREATESTRUCT IpCreateStruct) ; 

// NOTE - the ClassWizard will add and remove member functions here 
//}}AFX MSg'^ "^^^^ ^^"^ ^^^^^ blocks of generated code! 

^ DECLARE~MESSAGE_MAP { ) 
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PTDDlgl.cpp : Defines the class behaviors for the application. 

#include "stdafx.h' ' 
#includ.e ''PTDinp.h'' 
iinclude ' ' PTDDlgl .h' ' 

#ifdef _DEBUG 
#def ine new DEBUG_NEW 
#undef THIS_FILE 

static char THIS FILE[] = FILE ; 
#endif 

/////////////////////////////////////////////////////////////////////////// 

iiiiiijijiiiijiiiiiiiiiiiii/iiiiin/ininiin/iiiiniiiii 

I / CPTDInp dialog 

CPTDInp: :CPTDInp(CWnd* pParent /*=NULL*/) 
^ : CDialog (CPTDInp : :IDD, pParent) 

// { (AFX_DATA_INIT (CPTDInp) 
ni_DATE_OF_BIRTH = ""; 
m_NAME_F = ""; 

m_NAME_MI = " " ; 
m_l_COMP = FALSE; 
m_2_COMP = FALSE; 
in_3_COMP = FALSE; 
m_4_C0MP = FALSE; 
m_5_C0MP = FALSE; 
m_6_COMP = FALSE; 
m_ACOG_N = FALSE; 
m_ACOG_Y = FALSE; 
m_Antibiotics = FALSE; 
m_AntiHYper = FALSE; 
m_CervCerclage = FALSE; 
m_CervFirm = FALSE; 
m_CervMod = FALSE; 
m_CervSoft = FALSE; 
m_Corticosteroids = FALSE; 
Tn_Dilitationl_2 = FALSE; 
in_Dilitation2 = FALSE; 
m_Dilitation2_3 = FALSE; 
m_Dilitation3 = FALSE; 
m_DilitationGt3 = FALSE; 
m_Dilitationl = FALSE; 
m_DilitationLtl = FALSE; 
m_DilitationUkn = FALSE; 
m_EGAatSample = " " ; 
m_EGAbyLMP = ""; 
m_EGAbySONO = ""; 
m_EthnicOriginAsian = FALSE; 
m_EthnicOriginBlack = FALSE; 
ni_EthnicOriginHispanic = FALSE; 
m_EthnicOriginNativeAmerican = FALSE; 
m_EthnicOriginOther = FALSE; 
m_EthnicOriginWhite = FALSE; 
m_FFN_Neg = FALSE; 
m_FFN_Pos = FALSE; 
m_GestationalDiabetes = FALSE; 
"L-HypertensiveDisorders = FALSE; 
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m_Insulin = FALSE; 
m_LadID = " " ; 
m_MedicationNone = FALSE; 
m_ModicationUnknown = FALSE; 
m_MultipleGestationQuads = FALSE; 
m_MultipleGestationTriplets = FALSE; 
m_MultipleGestationTwins = FALSE; 
m_MaritalStatusDivorced = FALSE; 
m_iyiaritalStatusLWP = FALSE; 
m_MaritalStatusMarried = FALSE; 
m_MaritalStatusOther = FALSE; 
m_MaritalStatusSingle = FALSE; 
m_MaritalStatusWidowed = FALSE; 
m_MultipleGestation = FALSE; 
m_PatientCompl = FALSE; 
m_PatientComp2 = FALSE; 
m_PatientContp3 = FALSE; 
m_PatientComp4 = FALSE; 
m_PatientComp5 = FALSE; 
m_PatientComp6 = FALSE; 
m_Tocolytics = FALSE; 
m_UtCervAbnormal = FALSE; 
m_VaginalBleeding = FALSE ; . 
m_VaginalBleedingGross = FALSE; 
m_VaginalBleedingMed = FALSE; 
m_VaginalBleedingTrace = FALSE; 
m_2_C0MP_l = FALSE; 
m_2_COMP_2 = FALSE; 
m_2_COMP_3 = FALSE; 
ni_ABORTIONS = ""; 
m_PARITY = ""; 
ra_PatCompl_l_3 = FALSE; 
m_PatCompl_10_12 = FALSE; 
m_PatCompl_4_6 = FALSE; 
m_PatCompl_7_9 = FALSE; 
m_PatCompl_GT12 = FALSE; 
m_PatCompl_LTl = FALSE; 
m GRAVITY = ""; 
//} }AFX_DATA_INTT 



CPTDInp: :DoDataExchange (CDataExchange* pDX) 

CDialog: : DoDataExchange (pDX) ; 
// { {AFX_DATA_MAP (CPTDInp) 

DDX_Text (pDX, IDC_DATE_OF_BIRTH, m_DATE OF BIRTH) ; 
DDX_Text (pDX, IDC_NAME_F, m_NAME_F) ; ~ ~ 
DDV_MaxChars (pDX, m_NAME_F, 24); 
DDX_Text {pDX, IDC_NAME_L, m_NAME_L) ; 
DDV_MaxChars (pDX, m_NAME_L, 24); 
DDX_Text (pDX, IDC_NAME_MI , m_NAME_MI) ; 
DDV_MaxChars (pDX, M_NAME_MI, 2); 
DDX_Che ck ( pDX , I DC_l_COMP , m_l_COMP ) ; 
DDX_Check(pDX, IDC_2_C0MP , in_2_C0MP) ; 
DDX_Check (pDX, IDC_3_COiyiP, m_3_C0MP) ; 
DDX_Check(pDX, IDC_4_COMP, m_4_COMP) ; 
DDX_Check{pDX, IDC_5_COMP, m_5_COMP) ; 
DDX_Check(pDX, IDC_6_C0MP, m_6_COMP) ; 
DDX_Check. (pDX, IDC_ACOG_N, m_ACOG_N) ; 
DDX_Check(pDX, IDC_ACOG_Y, m_ACOG_Y) ; 
DDX_Check(pDX, IDC_ANTIBIOTICS, ni_Antibiotics) ; 
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DDX_Check(pDX, IDC_A1JTIHYPER, m_AntiHyper) ; 

DDX_Check(pDX, IDC_CERV_CERCLAGE , m_CervCerclage) ; 

DDX_Check(pDX, IDC_CERV_FIRM, m CervFirm) ; 

DDX_Check(pDX, IDC_CERV_MOD , m_CervMod) ; 

DDX_Check(pDX, IDC_CERV_SOFT, m_CervSoft) ; 

DDX_Check{pDX, IDC_CORTICOSTEROIDS, m_Corticosteroids) • 

DDX_Check(pDX, IDC_DILITATI0N_1_2 , m_Dilitationl 2) ; 

DDX_Check(pDX, IDC_DILITATI0N_2 , m_Dilitation2) ;~ 

DDX_Check{pDX, IDC_DILITATION_2_3 , m_Dilitation2 3) ; 

DDX_Check(pDX, IDC_DILITATION_3 , m_Dilitation3) ;~ 

DDX_Check(pDX, IDC_DILITATI0N_GT3 , m_DilitationGt3) ; 

DDX_Check(pDX, IDC_DILITATI0N_1 , m_Dilitationl) ; 

DDX_Check (pDX, IDC_DILITATI0N_LT1 , m_DilitationLtl) ; 

DDX_Check (pDX, IDC_DILITATION_UKN, m_DilitationUkn) • 

DDX_Text (pDX, IDC_EGA_AT_SAMP, m_EGAatSample) ; 

DDV_MaxChars (pDX, m_EGAat Sample, 10); 

DDX_Text (pDX, IDC_EGA_BY_LMP , m_EGAbyLMP) ; 

DDX_Text (pDX, IDC_EGA_BY_SONO, m_EGAbySONO) 

DDX_Check(pDX, IDC_EO_ASIAN, m_EthnicOriginAsian) ; 

DDX_Check(pDX, IDC_EO_BLACK, m_EthnicOriginBlack) ; 

DDX_Check (pDX, IDC_EO_HISPANIC, m_EthnicOriginHispanic) ; 

DDX_Check(pDX, IDC_EO_NATIVE_AMERICAN, m EthnicoriginNativeAmerican) ; 

DDX_Check(pDX, IDC_EO_OTHER, m_EthnicOriginOther) ; 

DDX_Check(pDX, II>C_EO_WHITE, m_EthnicOriginWhite) ; 

DDX_Check(pDX, IDC_FFN_NEG, m_FFN_Neg) ; 

DDX_Check(pDX, IDC_FFN_POS , m_FFN_Pos) ; 

DDX_Check(pDX, IDC_GEST_DIABETES, m_GestationalDiabetes) ; 

DDX_Check{pDX, IDC HYPERTEN_DISORDERS, m HypertensiveDisorders) • 

DDX_Check(pDX, IDC_INSULIN, m_Insulin) ; ~ 

DDX_Text (pDX, IDC_LAB_ID, m_LadID) ; 

DDX_Check (pDX, IDC_MED_NONE , m_MedicationNone) ; 

DDX_Check(pDX, IDC_MEDUKM, m_MedicationUnknowii) ; 

DDX_Check(pDX, IDC_MG_QUADS , m_MultipleGestationQuads) ; 

DDX_Check(pDX, IDC_MG_TRIPLETS , m_MultipleGestationTriplets) ; 

DDX_Check(pDX, IDC_MG_TWINS , m_MultipleGestationTwins) ; 
DDX_Check (pDX, IDC_MS_DIVORCED, m_MaritalStatusDivorced) ; 

DDX_Check(pDX, IDC_MS_LWP, m_MaritalStatusLWP) ; 

DDX_Check(pDX, IDC_MS_MARRIED , m_MaritalStatusMarried) ; 

DDX_Check(pDX, IDC_MS_OTHER , m_MaritalStatusOther) ; 

DDX_Check(pDX, IDC_MS_SINGLE, m_MaritalStatusSingle) ; 

DDX_Check(pDX, IDC_MS_WIDOWED , m_MaritalStatusWidowed) ; 

DDX_Check(pDX, IDC_MULT_GEST, m_MultipleGestation) ; 

DDX_Check{pDX, IDC_PATIENT_C0MP_1 , m_PatientCompl) ; 

DDX_Check (pDX , IDC_PATIENT_C0MP_2 , m_PatientComp2 ) ; 
DDX_Check (pDX , IDC_PATIENT_C0MP_3 , m_PatientComp3 ) ; 
DDX_Check(pDX, IDC_PATIENT_C0MP_4 , m_PatientComp4) ; 
DDX_Check(pDX, IDC_PATIENT_CO]yiP_5, m_PatientConip5) ; 
DDX_Check{pDX, IDC_PATIENT_C0MP_6 , m Pat lent Comp6) ; 
DDX_Check(pDX, IDC_TOCOLYTICS, m_Tocolytics) ; 
DDX_Check(pDX, IDC_UT_CWRV_ABNORM, m_UtCervAbnomial) ; 
DDX_Check(pDX, IDC_VAGINAL_BLEEDING, m_VaginalBleeding) ; 
DDX_Check(pDX, IDC_VB_GROSS, m_VaginalBleedingGross) ; 
DDX_Check(pDX, IDCVB_MED, m_VaginalBleedingMed) ; 
DDX_Check(pDX, IDC_VB_TRACE, m_VaginalBleedingTrace) ; 
DDX_Check(pDX, IDC_2_COMP 1, m_2_C0MP 1) ; 
DDX_Check(pDX, IDC_2_COMP_2 , m_2_COMP_2 ) ; 
DDX_Check(pDX, IDC_2_C0MP_3 , m_2_COMP_3 ) ; 
DDX_Text (pDX, IDC_ABORTIONS, ni_ABORTIONS) ; 
DDV_MaxChars (pDX, m_ABORTIONS, 2); 
DDX_Text (pDX, IDC_PARITY, m_PARITY) ; 
DDV_iyiaxChars (pDX, m_PARITY, 2); 
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DDX_Check (pDX , IDC_PC1_1_3 , m_PatCoTnp 1_1_3 ) ; 
DDX_Check(pDX, IDC_PC1_10_12 , m_PatCompl_10_12) ; 
DDX_Check(pDX, IDC_PC1_4_6 , m_PatCompl_4_6) ; 
DDX_Check(pDX, IDC_PC1_7_9, m_PatCompl_7_9) ; 
DDX_Check(pDX, IDC_PC1_GT12 , m_PatCompl_GT12) ; 
DDX_Check(pDX, IDC_PC1_LT1, m_PatCompl_LTl) ; 
DDX_Text {pDX, IDC_GRAVIDITY, m_GRAVITY) ; 
DDV MaxChars(pDX, m_GRAVITY, 2) ; 
/ / } yAFX_DATA_MAP 



BEGIN MESSAGE MAP{CPTDInp, CDialog) 
//{ {AFX_MSG_MAP (CPTDInp) 
0N_WM_RBUTT5ND0WN ( ) 
OM_BN_CLICKED(IDC_ACOG_N, OnAcogN) 
ON_BN_CL I CKED ( IDC_ACOG_Y , OnAcogY ) 
ON_BM_CLICKED ( IDC_FFN_NEG, OnFf nNeg) 
ON_BN_CLICKED ( IDC_FFN_POS , OnFf nPos ) 
ON_BN_CLICKED ( IDC_MG_QUADS , OnMgQuads ) 
ON_BN_CLICKED { IDC_MG_TRIPLETS , OnMgTripletS ) 
ON_BN_CLICKED ( IDC_iyiG_TWINS , OnMgTwins ) 
ON_BN_CLICKED ( IDC_MULT_GEST , OnMultGest) 
ON_BN_CLICKED (IDC_DILITATION_l, OnDilitationl) 
ON_BN_CLICKED ( IDC_DILITATI0N_1_2 , OnDilitat ionl2 ) 
ON_BN_CLICKED (IDC_DILITATTON_2 , OnDilitat ion2 ) 
ON_BN_CLICKED(IDC_DILITATION_2_3, OnDilitation2 3 ) 
ON_BM_CLICKED (IDC_DILITATI0N_3 , OnDilitat ion3 ) 
0N_BN_CLICKED ( IDC_DILITATI0N_GT3 , 0nDilitationGt3 ) 
0N_BN_CLICKED (IDC_DILITATI0N_LT1 , OnDilitationLtl) 
ON_BN_CLICKED ( IDC_DILITATION_UKN, OnDilitationUkn) 
ON_BN_CLICKED (IDC_CERV_FIRM, OnCervFirm) 
ON_BN_CLICKED ( IDC_CERV_M0D , OnCervMod) 
ON_BN_CLICKED (IDC_CERV_SOFT, OnCervSof t) 
ON_BN_CLICKED ( IDC_VAGINAL_BLEEDING, OnVaginalBleeding) 
ON_BN_CLICKED {IDC_VB_GROSS, OnVbGross) 
ON_BN_CLICKED ( IDC_VB_MED , OnVbMed) 
ON_BN_CLICKED ( IDC_VB_TRACE , OnVbTrace) 
ON_BN_CLICKED ( IDC_2_C0MP , On2Comp) 
ON_BN_CLICKED ( IDC_2_COMP_l , On2 Compl ) 
ON_BN_CLICKED { IDC_2_COMP_2 , On2Comp2 ) 
ON_BN_CLICKED { IDC_2_COMP_3 , On2Comp3 ) 
ON_BN_CLICKED ( IDC_PATIEISrT_COMP_l , OnPat lent Compl ) 
ON_BN_CLICKED ( IDC_PC1_1_3 , OnPcllS ) 
ON_BN_CLICKED (IDC_PC1_10_12 , OnPcll012) 
ON_BN_CLICKED ( IDC_PC1_4_6 , OnPcl4 6 ) 
ON_BN_CLICKED (IDC_PC1_7_9 , OnPcl79) 
ON_BN_CLICKED ( IDC_PC1_GT12 , OnPclGtl2 ) 
ON_BN_CLICKED(IDC_PCl_LTl, OnPclLtl) 
ON_BN_CLICKED ( IDC_EO_AS IAN , OnEoAsian) 
ON_BN_CLICKED (IDC_EO_BLACK, OnEoBlack) 
ON_BN_CLICKED ( IDC_EO_HISPANIC , OnEoHispanic) 
ON_BN_CLICKED (IDC_EO_NATIVE_AMERICAN, OnEoNativeAmerican) 
ON_BN_CLICKED (IDC_EO_OTHER, OnEoOther) 
ON_BN_CLICKED ( IDC_EO_WHITE , OnEoWhite ) 
ON_BN_CLICKED (IDC_MS_DIVORCED, OnMsDivorced) 
ON_BN_CLI CKED ( IDC_MS_LWP , OnMsLwp ) 
ON_BN_CLICKED ( IDC_MS_MARRIED, OnMsMarried) 
ON_BN_CLICKED ( IDC_MS_OTHER , OnMsOther ) 
ON_BN_CLICKED ( IDC_MS_SINGLE , OnMsSingle) 
ON BN_CLICKED (IDC_MS_WIDOWED, OnMsWidowed) 
/ /y } AFX_MSG_MAP 



-17- 



END_MESSAGE_MAP ( ) 

iiiiiiiiiiiiinii/ii/ii/ii/in/ii/i//in/mi/ii/ii/fiii/ii/iiiiniiiii/ii/ 
/////////////////////////////////////////////////////////////////////////// 

II CPTDInp message handlers 
BOOL CPTDInp: :OnInitDialog() 

CDialog: :OnInitDialog() ; 

// TODO: Add extra initialization here 

//MoveWindow{0,-250,500,500) ; // one way to handle large 

dialogs 

return TRUE; // return TRUE unless you set the focus to 

a control 

void CPTDInp: :OnRButtonDown(UINT nFlags, CPoint point) 
{ 

// TODO: Add your message handier code here and/or call default CRect 
ny rect; GetWindowRect (&rect) ; 

kj CRect Desk; 

m GetDesktopWindow ( ) ->GetWindowRect (&Desk) ; 

I:^:; //char str [256] ; 

//sprintf (str, "t %d 1 %d b %d r %d \n t %d 1 %d b %d r %d 
- // rect. top, rect. left, rect. bottom, rect. right, 

13 // Desk. top, Desk. left. Desk. bottom, Desk.right) ; 

\^ I / Af xMe s s ageBox (str) ; 

1.4 if (rect. top < 0 ) { 

rect. bottom = rect. bottom - rect. top; 
i"* rect . top = 0 ; 

13 MoveWindow(rect) ; 

fij } else if (rect. bottom > Desk. bottom) { 

rect. top = Desk. bottom - 3 - (rect. bottom - rect. top); 
rect. bottom = Desk. bottom 3; 
^ MoveWindow(rect) ; 

^ CDialog: :OnRButtonDown (nFlags, point); 

void CPTDInp : : OnAcogN ( ) 

// get current values from dialog 
UpdateData(TRUE) ; 

if (m_ACOG_N) { 

m ACCOG Y = FALSE; 

} 

// update dialog with new data 
^ UpdateData (FALSE) ; 

void CPTDInp: :OnAcogY() 

// get current values from dialog 
UpdateData (TRUE) ; 

if (m_ACOG_Y) ( 
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m_ACOG_N = FALSE; 



// update dialog with new data 
UpdateData (FALSE) ; 

} 

void CPTDInp: lOnFfnNegO 

// get current values from dialog 
UpdateData (TRUE) ; 

if {ra_FFN_Neg) { 

m FFN Pos = FALSE; 
} " " 

// update dialog with new data 
UpdateData (FALSE) ; 

} 

void CPTDInp : : OnFf nPos ( ) 

// get current values from dialog 
UpdateData (TRUE) ; 

if (m_FFN_Pos) { 

^ m_FFN_Neg = FALSE; 

// update dialog with new data 
UpdateData (FALSE) ; 

} 

void CPTDInp : : OnMgQuads ( ) 

/ / get current values from dialog 
UpdateData (TRUE) ; 

if (m_multipleGestationQuads) { 

m_MultipleGestation = TRUE; 

m_MultipleGestationTwins = FALSE; 

m_MultipleGestationTriplets = FALSE; 
} else ( 

if (m_MultipleGestationTwins ++ FALSE && 

m_MultipleGestationTriplets == FALSE ) { 
^ m_MultipleGestation = FALSE; 

// update dialog with new data 
UpdateData (FALSE) ; 

} 

void CPTDInp : :OnLMgTriplets 0 

/ / get current values from dialog 
UpdateData (TRUE) ; 
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if (m_MultipleG©stationTriplets) { 

m_iyEultlpleGestation = TRUE; 

m_MultipleGestationQuads = FALSE; 

m MultipleGestationTwins = FALSE; 
} else T 

if ( m_MultipleGestationQuads == FALSE && 

m_MultipleGestationTwins == FALSE ) { 
^ m_MuItipleGestation = FALSE; 

// update dialog with new data 
UpdateData(FALSE) ; 

} 

void CPTDInp : : OriMgTwins ( ) 

// get current values from dialog 
UpdateData(TRUE) ; 

if (m_MultipleGestationTwins) { 

m_MultipleGestation = TRUE; 
m_MultipleGestationQuads = FALSE; 

ni_MultipleGestationTriplets = FALSE; 
} else ( 

if ( in_MultipleGestationQuads == FALSE && 

m_MultipleGestationTriplets == FALSE ) { 
m_MultipleGestation = FALSE; 

} ^ 

// update dialog with new data 
UpdateData (FALSE) ; 



void CPTDInp :: OnMultGest ( ) 

// get current values from dialog 
UpdateData (TRUE) ; 

if (m_MultipleGestation) { 
}else { 

if ( ( (CPTDinpApp* ) Af xGetApp () ) - >ClearSiibf ields) { 
m_MultipleGestationQuads = FALSE; 
m_MultipleGestationTriplets = FALSE; 

^ m_MultipleGestationTwins = FALSE; 

// update dialog with new data 
UpdateData (FALSE) ; 

} 

void CPTDInp: rOnDilitationlO 

/ / get current values from dialog 
UpdateData (TRUE) ; 
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if (m_Dilitatioiil) { 

m_Dilitationl_2 = FALSE; 

m_Dilitation2 = FALSE; 
m_Dilitation2_3 = FALSE; 
m_Dilitation3 = FALSE; 
m DilitationGtS = FALSE; 
/7tn_Dilitationl = FALSE; 
m_DilitationLtl = FALSE; 
m DilitationUkn = FALSE; 

} 

// update dialog with new data 
UpdateData (FALSE) ; 

} 

void CPTDInp: :0nDilitationl2 0 

// get current values from dialog 
UpdateData (TRUE) ; 

if (m_Dilitationl_2) { 

//m_Dilitationl_2 = FALSE; 
m_Dilitation2 = FALSE; 
m_Dilitation2_3 = FALSE; 
m_Dilitation3 = FALSE; 
m_DilitationGt3 = FALSE; 
m_Dilitationl = FALSE; 
m_DilitationLtl = FALSE; 
in DilitationUkn = FALSE; 

} 

// update dialog with new data 
UpdateData (FALSE) ; 



void CPTDInp: :OnDilitation2 () 



// get current values from dialog 
UpdateData (TRUE) ; 

if (m_Dilitation2) 

m_Dilitationl_2 = FALSE; 
//m_Dilitation2 = FALSE; 
m_Dilitation2_3 = FALSE; 
m_Dilitation3 = FALSE; 
m_DilitationGt3 = FALSE; 
m_Dilitationl + FALSE; 
m_DilitationLtl = FALSE; 
m DilitationUkn = FALSE; 

} 

// update dialog with new data 
UpdateData (FALSE) ; 



void CPTDInp: :OnDilitation23 0 



-21- 





24727-801 F 



// get current values from dialog 
UpdateData (TRUE) ; 

if (ra_Dilitation2_3) { 

m_Dilitationl_2 = FALSE; 
m_Dilitation2 = FALSE; 
//m_Dilitation2_3 = FALSE; 
m_DI-litation3 = FALSE; 
ra_DilitationGt3 = FALSE; 
m_Dilitationl = FALSE; 
m_DilitationLtl = FALSE; 
m_DilitationUkn = FALSE; 



// update dialog with new data 
UpdateData (FALSE) ; 



void CPTDInp: :OnDilitation3 () 

// get current values from dialog 
UpdateData (TRUE) ; 

if (m_Dilitation3) { 



m_Dilitationl_2 = FALSE; 
m_Dilitation2 = FALSE; 
m_Dilitation2_3 = FALSE; 
//m_Dilitation3 = FALSE; 
m_DilitationGt3 = FALSE; 
m_Dilitationl = FALSE; 
m_DilitationLtl = FALSE; 
m_DilitationUkn = FALSE; 



// update dialog with new data 
UpdateData (FALSE) ; 



void CPTDInp: :OnDilitationGt3 () 

// get current values from dialog 
UpdateData (TRUE) ; 

if (m_DilitationGt3) { 

m-Dilitationl_2 = FALSE; 
m_Dilitation2 = FALSE; 
m_Dilitation2_3 = FALSE; 
m DilitationS = FALSE; 
/7m_DilitationGt3 = FALSE; 
m_Dilitationl = FALSE; 
m_DilitationLtl = FALSE; 
m_DilitationUkn = FALSE; 



// update dialog with new data 
UpdateData (FALSE) ; 



} 



} 



} 



} 



} 



} 
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void CPTDInp: .-OnDilitationLtl {) 

// get current values from dialog 
UpdateData (TRUE) ; 

if (m_DilitationLtl) { 

m_Dilitationl_2 = FALSE; 

m_Dilitation2 = FALSE; 

m_Dilitation2_3 = FALSE; 

m_Dilitation3 = FALSE; 

m_DilitationGt3 = FALSE; 

m_Dilitationl = FALSE; 

//m_DilitationLtl = FALSE; 
^ m_DilitationUkn = FALSE; 

// update dialog with new data 
UpdateData (FALSE) ; 

} 

void CPTDInp: lOnDilitationUknO 

// get current values from dialog 
UpdateData (TRUE) ; 

if (m_DilitationUkn) 

m_Dilitationl_2 = FALSE; 
Tn_Dilitation2 = FALSE; 
m_Dilitation2_3 = FALSE; 
m_Dilitation3 = FALSE; 
m_DilitationGt3 = FALSE; 
m_Dilitationl = FALSE; 
m_DilitationLt 1= FALSE; 
//m DilitationUkn = FALSE; 

} 

// update dialog with new data 
UpdateData (FALSE) ; 

} 

void CPTDInp: .-OnCervFirmO 

/ / get current values from dialog 
UpdateData (TRUE) ; 

if (m_CervFirm) { 

m_CervMod = FALSE; 

m CervSoft = FALSE; 

} 

// update dialog with new data 
UpdateData (FALSE) ; 

} 

void CPTDInp: :OnCervMod() 

// get current values from dialog 
UpdateData (TRUE) ; 
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if (ni_CervMod) { 

m_CervFirm = FALSE; 
m_CervSoft = FALSE; 



// update dialog with new data 
UpdateData (FALSE) ; 

} 

void CPTDInp : : OnCervSof t ( ) 

// get current values from dialog 
UpdateData (TRUE) ; 

if (m_CervSoft) { 

m_CervMod = FALSE; 
m CervFirm = FALSE; 

} 

// update dialog with new data 
UpdateData (FALSE) ; 

} 

void CPTDInp: : OnVaginalBleedingO 

// get current values from dialog 
UpdateData (TRUE) ; 

if (m_VaginalBleeding) { 
} else { 

if ( ( (CPTDinpApp*) AfxGetApp 0 ) - >ClearSubf ields) { 
m_VaginalBleedingGross = FALSE; 
m_VaginalBleedingMed = FALSE; 

^ m_VaginalBleedingTrace = FALSE; 

// update dialog with new data 
UpdateData (FALSE) ; 

} 

void CPTDinp: :OnVbGross 0 

// get current values from dialog 
UpdateData (TRUE) ; 

if (m_VaginalBleedingGross) { 

m_VaginalBleeding = TRUE; 

m_VaginalBleedingMed = FALSE; 

m VaginalBleedingTrace = FALSE; 
} else J 

if {m_VaginalBleedingMed == FALSE && 

m_VaginalBleedingTrace == FALSE ) { 
m_VaginalBleeding = FALSE; 

} ^ 

// update dialog with new data 



UpdateData(FALSE) ; 

} 

void CPTDInp : : OnVbMed ( ) 

// get current values from dialog 
UpdateData(TRUE) ; 

if {m_VaginalBleedingMed) { 

m_VaginalBleedingGross = FALSE; 

tn_VaginalBleeding = TRUE; 

m_VaginalBleedingTrace = FALSE; 
} else { 

if (m_VaginalBleedingGross == FALSE && 

m_VagiiialBleedingTrace ++ FALSE ) { 
m_VaginalBleeding = FALSE; 

// update dialog with new data 
UpdateData (FALSE) ; 

} 

void CPTDInp : : OnVbTrace ( ) 

// get current values from dialog 
UpdateData (TRUE) ; 

if (m_VaginalBleedingTrace) { 

m_VaginalBleedingGross = FALSE; 
m_VaginalBleedingMed = FALSE; 
m VaginalBleeding = TRUE; 

} else X 

if (m_VaginalBleedingMed == FALSE 

m_VaginalBleedingGross == FALSE ) { 
^ Tn_VaginalBleeding = FALSE; 

// update dialog with new data 
UpdateData (FALSE) ; 

} 

void CPTDInp : : On2Comp { ) 

// get current values from dialog 
UpdateData (TRUE) ; 

if (m_2_COMP) { 
} else { 

if ( ( ( CPTDinpApp* ) Af xGetApp ( ) ) - >ClearSubf ields ) { 
m_2_COMP_l = FALSE; 
m_2_COMP_2 = FALSE; 
tn 2 COMP 3 = FALSE; 

// update dialog with new data 
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UpdateData (FALSE) ; 



} 



void CPTDInp: :0n2Compl () 

// get current values from dialog 
UpdateData (TRUE) ; 

if (m_2_COMP_l) { 

m_2_COMP = TRUE; 
m_2_COMP_2 = FALSE; 
m 2_COMP_3 = FALSE; 
} else T 

if {m_2_COMP == 2 - FALSE && 

m_2_COMP_3 == FALSE ) { 
m_2_C0MP = FALSE; 



/ / update dialog with new data 
UpdateData (FALSE) ; 



void CPTDInp: :on2Comp2 () 

// get current values from dialog 
UpdateData (TRUE) ; 

if (m_2_COMP_2) { 

m_2_COTAP = TRUE; 
m_2_COMP_l = FALSE; 
m 2 COMP 3 = FALSE; 
} else T - 

if (m_2_C0MP_l == FALSE && 

m_2_COMP_3 == FALSE ) { 
ra_2_C0MP = FALSE; 



// update dialog with new data 
UpdateData (FALSE) ; 



void CPTDInp: :on2Comp3 () 

// get current values from dialog 
UpdateData (TRUE) ; 

if (m_2_COMP_3) { 

m_2_COMP = TRUE; 
m_2_C0MP 2 = FALSE; 
m 2_COMP_l = FALSE; 
} else T 

if (m_2_C0MP_2 == FALSE && 

m_2_C0MP_l == FALSE ) { 
m_2_C0MP = FALSE; 



} 



} 



} 
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// update dialog with new data 
UpdateData (FALSE) ; 

}■ 

void CPTDInp: :OnPatientCompl 0 



// get current values from dialog 
UpdateData (TRUE) ; 

if (in_PatientCompl) { 
} else { 

if { ( (CPTDinpApp*) AfxGetApp 0 ) ->ClearSubf ields) { 
m_PatCompl_LTl = FALSE; 
in_PatCompl_l_3 = FALSE; 
m_PatCompl_4_6 = FALSE; 
m_PatCoinpl_7_9 = FALSE; 
m_PatConipl_10_12 = FALSE; 
m_PatCompl ^GT12 = FALSE; 



// update dialog with new data 
UpdateData (FALSE) ; 



void CPTDInp: :OnPcll3 () 

// get current values from dialog 
UpdateData (TRUE) ; 

if (m_PatCompl_l_3 ) { 

m_PatCompl_LTl = FALSE; 

m_PatientCompl = TRUE; 

m_PatCompl_4_6 = FALSE; 

m_PatCOTipl_7_9 = FALSE; 

m_PatCompl_10_12 = FALSE; 

m PatCompl_GT12 = FALSE; 
} else J 

if (m_PatCompl_LTl == FALSE && 

m_PatCompl_l_3 == FALSE && 
m_PatCompl_4_6 == FALSE && 
m_PatCompl_7_9 == FALSE && 
m_PatCompl_10_12 == FALSE 
m_PatCompl_GT12 == FALSE ) { 
m_PatientCompl = FALSE; 



/ / update dialog with new data 
UpdateData (FALSE) ; 

} 

void CPTDInp: :OnPcll 012 0 

// get current values from dialog 
UpdateData (TRUE) ; 
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if (m_PatCompl_10_12) { 

ni_PatCompl_LTl = FALSE; 

m_PatCompl_l_3 = FALSE; 

m_PatCompl_4_6 = FALSE; 

m_PatCompl_7_9 = FALSE; 

m_PatientCompl = TRUE; 

m PatCompl_GT12 = FALSE; 
} else T 

if {m_PatCompl_LTl == FALSE && 

m_PatCompl_l_3 = FALSE && 
m_PatCompl_4_6 == FALSE && 
ni_PatCompl_7_9 == FALSE 
m_PatCompl_10_12 == FALSE && 
m_PatCompl_GT12 == FALSE ) { 
m_PatientCompl = FALSE; 

// update dialog with new data 
UpdateData (FALSE) ; 

} 

void CPTDInp: :OnPcl46 () 

// get current values from dialog 
UpdateData (TRUE) ; 

if (m_PatCompl_4_6) { 

m_PatCompl_LTl = FALSE; 

m_PatCompl_l_3 = FALSE; 

Tn_PatientCompl = TRUE; 

m_PatCompl_7_9 = FALSE; 

m_PatCompl_10_12 = FALSE; 

m PatCompl_GT12 = FALSE; 
} else T 

if (m_PatCompl_LTl == FALSE && 

m_PatCompl_l_3 == FALSE && 
m_PatCompl_4_6 == FALSE && 
m_PatCompl_7_9 == FALSE && 
m_PatCompl_10_12 == FALSE && 
m_PatCompl_GT12 == FALSE ) { 
m_PatientCoinpl = FALSE; 



// update dialog with new data 
UpdateData (FALSE) ; 

} 

void CPTDInp: :OnPcl79 0 

// get current values from dialog 
UpdateData (TRXJE) ; 

if (m_PatCompl_7_9) { 

m_PatCompl_LTl = FALSE; 

m_PatCompl_l_3 = FALSE; 

m_PatCorapl_4__6 = FALSE; 
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m_PatientCorapl = TRUE; 

m_PatCompl_10_12 = FALSE; 

m PatCompl_GT12 = FALSE; 
} else T 

if (m_PatCompl_LTl == FALSE && 

m_PatCompl_l_3 == FALSE && 
m_PatCompl_4_6 == FALSE && 
m_PatCompl_7_9 == FALSE && 
m_PatCompl_10_12 == FALSE && 
m_PatCompl_GT12 == FALSE ) { 

^ m_PatientCompl = FALSE; 

// update dialog with new data 
UpdateData (FALSE) ; 

H } 

void CPTDInp: :0nPclGtl2 () 

t''^ // get current values from dialog 

Updat eDat a { TRUE ) ; 

w 

111 if (m_PatCompl_GT12) { 

i'^ m_PatCompl_LTl = FALSE; 

m_PatCompl_l_3 = FALSE; 
m_PatCompl_4_6 = FALSE; 
ili m_PatCom.pl_7_9 = FALSE; 

m_PatCompl_10_12 = FALSE; 
m PatientCompl = TRUE; 
: } else J 

if (m_PatCompl_LTl == FALSE && 
I m_PatCompl_l_3 == FALSE && 

m_PatCompl_4_6 == FALSE && 
m_PatCompl_7_9 == FALSE && 
m_PatCotnpl_10_12 == FALSE && 
Tn_PatConipl_GT12 == FALSE ) { 
Tn_PatientCompl = FALSE; 

// update dialog with new data 
UpdateData (FALSE) ; 

} 

void CPTDInp : : OnPclLtl ( ) 

// get current values from dialog 
UpdateData (TRUE) ; 

if (m_PatCompl_LTl) { 

m_PatientCompl = TRUE; 

m_PatCompl_l_3 = FALSE; 

m_PatCompl_4_6 = FALSE; 

m_PatCompl_7_9 = FALSE; 

m_PatCompl_10_12 = FALSE; 

m PatCompl-GT12 = FALSE; 
} else X 

if (m_PatCompl_LTl == FALSE && 
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m_PatCompl_l_3 == FALSE && 
m_PatCompl_4_6 == FALSE && 
m_PatCompl_7_9 == FALSE && 
m_PatCompl_10_12 == FALSE S=& 
m_PatCompl_GT12 == FALSE ) { 
m_PatientCompl = FALSE; 



7/ update dialog with new data 
UpdateData (FALSE) ; 

} 

void CPTDInp: :OnEoAsian() 

#ifdef NOT 

// get current values from dialog 
UpdateData (TRUE) ; 

if (m_EthnicOriginAsian) { 

//m_EthnicOriginAsian = FALSE ; 
m_EthnicOriginBlack = FALSE; 
in_EthnicOriginHispanic = FALSE; 
m_EthnicOriginNativeAmerican = FALSE; 
m_EthnicOriginOther = FALSE; 
in_EthnicOriginWliite = FALSE; 



// update dialog with new data 
UpdateData (FALSE) ; 

#endif 
} 

void CPTDInp : : OnEoBlack ( ) 

#ifdef NOT 

// get current values from dialog 
UpdateData (TRUE) ; 

if {m_EthnicOriginBlack) { 

m_EthnicOriginAsian = FALSE; 
//m_EthnicOriginBlack = FALSE; 
m_EthnicOriginHispanic = FALSE; 
m_EthnicOriginNativeAmerican = FALSE; 
m_EthnicOriginOther = FALSE; 
n_EthnicOriginWhite = FALSE; 



// update dialog with new data 
UpdateData (FALSE) ; 

#endif 
} 

void CPTDInp: lOnEoHispanic 0 

tifdef NOT 

/ / get current values from dialog 
UpdateData (TRUE) ; 

if (m_EthnicOriginHispanic) { 

m_EthnicOriginAsian = FALSE; 
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} 



m EthnicOriginBlack = FALSE; 
/7ni_EthnicOriginHispanic = FALSE; 
m_EthiiicOriginNativeAmerican = FALSE; 
m_EthnicOriginOther = FALSE; 
m_EthnicOriginWhite = FALSE; 



// update dialog with new data 
UpdateData(FALSE) ; 

#endif 
} 

void CPTDInp : : OnEoNativeAmerican ( ) 

#ifdef NOT 

/ / get current values from dialog 
UpdateData(TRUE) ; 

l3 if (m_EthnicOriginNativeAmerican) { 

Q m_EthnicOriginAsian = FALSE; 

m_EthnicOriginBlack = FALSE; 

m EthnicOriginHispanic = FALSE; 

/7m_EthnicOriginNativeAmerican = FALS: 
ly m_EBlmicOriginOther = FALSE; 

1,11 m_EthnicOriginWhite = FALSE; 

ip } 

// ate dialog with new data 
'!„ UpdateData (FALSE) ; 

#endif 

M } 

i-l 

void CPTDInp : : OnEoOther ( ) 

{ 

#ifdef NOT 

|?j // get current values from dialog 

UpdateData (TRUE) ; 

if (m_EthnicOriginOther) { 

m_EthnicOriginAsian = FALSE; 
m_EthnicOriginBlack = FALSE; 
m_EthnicOriginHispanic = FALSE; 
m_EthnicOriginNativeAmerican = FALSE; 
//m_EthnicOriginOther = FALSE; 
m EthnicOriginWhite = FALSE; 

} 

// update dialog with new data 
UpdateData (FALSE) ; 

#endif 
} 

void CPTDInp : : OnEowhite ( ) 

#ifdef NOT 

// get current values from dialog 
UpdateData (TRUE) ; 

if (m_EthnicOriginWhite) { 

m_EthnicOriginAsian = FALSE; 
m_EthnicOriginBlack = FALSE; 
m_EthnicOriginHispanic = FALSE; 
m_EthnicOriginNativeAmerican = FALSE; 
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m_EthnicOriginOther = FALSE; 
//m_EthnicOriginWhite = FALSE; 



// update dialog with new data 
UpdateData(FALSE) ; 

tendif 
} 

void CPTDInp : : OnLMsDivorced ( ) 

// get current values from dialog 
UpdateData(TRUE) ; 

if {m_MaritalStatusDivorced) { 

//m_MaritalStatusDivorced = FALSE; 
m_MaritalStatusLWP = FALSE; 
m_MaritalStatusMarried = FALSE; 
m_MaritalStatusOther = FALSE; 
m_MaritalStatusSingle = FALSE; 
m MaritalStatusWidowed = FALSE; 

} 

// update dialog with new data 

UpdateData(FALSE) ; 



void CPTDInp : : OnMsLwp ( ) 

// get current values from dialog 
UpdateData(TRUE) ; 

if {m_MaritalStatusLWP) { 

m_MaritalStatusDivorced = FALSE; 
//m_MaritalStatusLWP = FALSE; 
m_MaritalStatusMarried = FALSE; 
m_MaritalStatusOther = FALSE; 
m_MaritalStatusSingle = FALSE; 
m_MaritalStatusWidowed = FALSE; 



// update dialog with new data 
UpdateData (FALSE) ; 



void CPTDInp : : OnMsMarried ( ) 

/ / get current values from dialog 
UpdateData (TRUE) ; 

if (m_MaritalStatusMarried) { 

m_MaritalStatusDivorced = FALSE; 
m_MaritalStatusLWP = FALSE; 
//m_MaritalStatusMarried = FALSE; 
m_MaritalStatusOther = FALSE; 
m_MaritalStatusSingle = FALSE; 
m MaritalStatusWidowed = FALSE; 

} 

// update dialog with new data 
UpdateData (FALSE) ; 
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void CPTDInp : : OnMsOther ( ) 

// get current values from dialog 
UpdateData(TRUE) ; 

if {Tn_MaritalStatusOther) { 

m_MaritalStatusDivorced = FALSE; 
m_MaritalStatusLWP = FALSE; 
m_MaritalStatusMarried = FALSE; 
//m_MaritalStatusOther = FALSE; 
Tn_MaritalStatusSingle = FALSE; 
m MaritalStatusWidowed = FALSE; 

} 

/ / update dialog with new data 
UpdateData (FALSE) ; 



void CPTDInp : : OnMsSingle ( ) 

// get current values from dialog 
UpdateData (TRUE) ; 

if (m_MaritalStatusSingle) { 

m_iy[aritalStatusDivorced = FALSE; 
m_MaritalStatusLWP = FALSE; 
m_MaritalStatusMarried = FALSE; 
m MaritalStatusOther = FALSE; 
/7m_MaritalStatusSingle = FALSE; 
m_MaritalStatusWidowed = FALSE; 



/ / update dialog with new data 
UpdateData (FALSE) ; 



void CPTDInp: :OnMsWidowed() 

/ / get current values from dialog 
UpdateData (TRUE) ; 

if (m_MaritalStatusWidowed) { 

m_MaritalStatusDivorced = FALSE; 
m_MaritalStatusLWP = FALSE; 
m_MaritalStatusMarried = FALSE; 
m_MaritalStatusOther = FALSE; 
m_MaritalStatusSingle = FALSE-; 
//m_MaritalStatusWidowed = FALSE; 



/ / update dialog with new data 
UpdateData (FALSE) ; 



void CPTDInp :: OnOK ( ) 



double val; 
char str [32] ; 
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char *ps; 
int tn, d, y; 

UpdateData(TRUE) ; 

// Check the Date of Birth field 
// parse the data from mm/dd/yyyy 

s t ropy ( s t r , m_DATE_OF_B IRTH ) ; 

m = atoi (str) ; 

if ( m < 1 I i m > 12) { 

AfxMessageBoxC Please enter date in tnm/dd/yy format. Month out 

of range") ; 

return; 

ps = strchr(str, '/' ) ; 
if ( ps == NULL ) { 

AfxMessageBox ("Please enter date in mm/dd/yy format."); 

return; 
} else { 

ps++ ; 

d = atoi (ps) ; 

if ( d < 1 II d > 31 ) { 

AfxMessageBox" ("Please enter date in mm/dd/yy format. Day 

out of range") ; 

return ; 



ps = strchr(ps, '/'); 
if ( ps == NULL ) { 

AfxMessageBox ("Please enter date in mm/dd/yy format.") ; 

return; 
} else { 

ps++; 

y = atoi (ps) ; 

if ( y < 30 ) y += 2000; 

if ( y < 99 ) y += 1900; 



// Check all boxes that are used by the network 
if ( 

m_EthnicOriginAsian == FALSE && 
m_EthnicOriginBlack == FALSE && 
m_EthnicoriginHispanic == FALSE && 
m_EthnicOrigihNativeAmerican == FALSE && 
m_EthnicOriginOther == FALSE && 
m EthnicOriginWhite == FALSE 

) { 

AfxMessageBox ("Please make selection for Ethnic Origin"); 
return ; 

} 

if ( 

m_MaritalStatusDivorced == FALSE && 
m_MaritalStatusLWP FALSE && 
m_MaritalStatusMarried == FALSE && 

m_MaritalStatusOther == FALSE && 
m_MaritalStatusSingle == FALSE && 
m MaritalStatusWidowed == FALSE 

) { 
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} 

if ( 



AfxMessageBox ("Please make selection for Marital Status"); 
return; 



m_CervFirm == FALSE && 
m_CervMod == FALSE && 
m CervSoft == FALSE 



// AfxMessageBox ("Please make selection for Cervical 
Consistancy" ) ; 

//return; 



} 

if { 



) { 
} 

if ( 

> { 



} 



m_Dilitationl_2 == FALSE && 
m_Dilitation2 == FALSE && 
m_Dilitation2_3 == FALSE && 
m_Dilitation3 == FALSE && 
m_DilitationGt3 == FALSE && 
m_Dilitationl == FALSE && 
m_DilitationLtl == FALSE && 
m_DilitationUkn == FALSE 

AfxMessageBox ("Please make selection for Dilatation"); 
return; 



m_FFM_Neg == FALSE && 
m_FFN_Pos == FALSE 

AfxMessageBox ("Please make selection for fFN Result"); 
return; 



val = (double) atof (m_EGAbySONO) ; 
if( val == 0.0 ) { 

AfxMessageBox ("Please enter value for EGA by SONO") ; 

return; 

if( val < 24.0 li val > 45.0 ) { 

AfxMessageBox ("Value for EGA by SONO must be between 24.0 and 
45 . 0 weeks" ) ; 

return ; 

} 

val = (double) atof (m_EGAbyLMP) ; 
if (val == 0.0 ) { 

AfxMessageBox ("Please enter value for EGA by LMP") ; 

return; 

if ( val < 24.0 j I val > 45 . 0 ) { 

AfxMessageBox ( "Value for EGA by LMP must be between 24.0 and 
45.0 weeks") ; 

return; 

} 

val = (double) atof (m_EGAatSample) ; 
if( val == 0.0 ) { 

AfxMessageBox ("Please enter value for EGA at Sample"); 
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f ( val < 24 . 0 I i val > 45 . 0 ) { 

Af xMessageBox ( "Value for EGA at Sample must be between 24 . 0 
0 weeks") ; 

return; 



strcpy ( s tr , m_GRAVITY) ; 
.f(str[0] == 0 ) { 

Af xMessageBox ("Please enter value for Gravity"); 

return; 



strcpy (str,m_PARITY) ; 
if( str[0] == 0 ) { 

Af xMessageBox ("Please 

return; 



strcpy (str,m_ABORTIONS) ; 
if( str[0] == 0 ) { 

AfxMessageBox ("Please 

return; 



enter value for Parity" ) ; 



enter value for Abortions") ; 



if(m_2_COMP == TRUE && 

m_2_COMP_l == FALSE && 
m_2_C0MP_2 == FALSE && 
m_2_COMP_3 == FALSE ) { 

AfxMessageBox ("Please make selection under History of Preterm 

Delivery") ; 

return; 

} 

if (m_VaginalBleedingMed == FALSE && 

m_VaginalBleedingGross == FALSE && 
m_VaginalBleeding == TRUE && 
m_VaginalBleedingTrace == FALSE ) { 

AfxMessageBox ("Please make selection under Vaginal Bleeding"); 
return ; 

} 

if (m_MultipleGestation == TRUE && 
m_MultipleGestationQuads == 
m_MultipleGestationTriplets 
m_MultipleGestationTwins == 
AfxMessageBox ("Please make 

Gestation") ; 

return; 

} 

if (m_PatientCompl == TRUE && 

m_PatContpl-LTl == FALSE && 
m_PatCompl_l_3 == FALSE && 
m_PatCompl_4_6 == FALSE s=& 

m_PatCompl_7_9 == FALSE && 
m_PatCompl_10_12 == FALSE && 
m_PatCompl_GT112 == FALSE ) { 

AfxMessageBox ("Please select Nuitiber/hr under Uterine 



FALSE && 
== FALSE && 
FALSE ) { 

selection under Multiple 
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return ; 

} 

CDialog: :OnOK{) ; 

} 



// standard constructor 



// PTDDgll.h : header file 
// 

/////////////////////////////////////////////////////////////////////////// 
/////////////////////////////////////////////////////////////////////////// 
// CPTDInp dialog 

class CPTDInp : public CDialog 

// Construction 
public : 

CPTDInp (CWnd* pParent = NULL) ; 

// Dialog Data 

/ / { { AFX_DATA ( CPTDInp) 
enum { IDD = IDD_D_PTD_INP }; 
CString 
CString 
CString 
CString 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
CString 
CString 
CString 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 



m DATE OF BIRTH; 


m NAME F 




m NAME L; 


m, NAME MI; 


m 1 COMP 




m 2 COMP 




m 3 COMP 




m 4 COMP 




m 5 COMP 




m 6 COMP 




m ACOG N 




m ACOG Y 





m_Antibiotics ; 
m_Ant iHyper ; 
m_CervCerclage ; 
m_CervFirm ; 
m_CervMod ; 
m_CervSof t ; 
m_Corticosteroids ; 
m_Dilitationl_2 ; 
m_Dilitation2 ; 
m_Dilitation2_3 ; 
m_Dilitation3 ; 
m_DilitationGt3 ; 
m_Dilitationl; 
ra_D i 1 i t at ionLt 1 ; 
tn_D i 1 i t at ionUkn ; 
m_EGAatSample ; 
m_EGAbyLMP; 
tn_EGAbySONO; 
m_EthnicOriginAsian; 
m_EthnicOriginBlack; 
m_EthnicoriginHi spanic ; 
m_EthnicoriginNativeAmerican; 
in_EthnicOriginOther; 
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BOOL m_EthnicOriginWhite; 

BOOL m_FFN_Neg; 

BOOL in_FFN_Pos ; 

BOOL m_GestationalDiabetes; 

BOOL m_HypertensiveDisorders; 

BOOL m_Insulin; 

CString m_LadID; 

BOOL m_MedicationNorLe; 

BOOL in_MedicationUnknowii; 

BOOL m_MultipleGestationQuads ; 

BOOL m_MultipleGestationTriplets ; 

BOOL m_MultipleGestationTwins; 

BOCL m_MaritalStatusDivorced; 

BOOL in_MaritalStatusLWP; 

BOOL m_MaritalStatusMarried; 

BOOL Tn_MaritalStatusOther; 

BOOL m_MaritalStatusSingle; 

BOOL m_MaritalStatusWidowed; 

BOOL m_MultipleGestation; 

BOOL m_PatientCompl; 

BOOL m_Pat i ent Comp2 ; 

BOOL iii_PatientCoinp3 ; 

BOOL m_PatientComp4; 

BOOL m_PatientCoinp5; 

BOOL m_Pat i ent Comp 6 ; 

BOOL m_Tocolytics; 

BOOL m_UtCervAbnormal ; 

BOOL in_VaginalBleeding; 

BOOL in_VaginalBleedingGross ; 

BOOL m_VaginalBleedingMed; 

BOOL m_VaginalBleedingTrace; 

BOOL m_2_C0MP_l ; 

BOOL m_2_C0MP_2 ; 

BOOL m_2_COMP_3 ; 

CString m_ABORTIONS; 

est ring m_PARITY; 

BOOL m_PatContpl_l_3 ; 

BOOL m_PatCompl_10_12; 

BOOL m_PatCompl_4_6 ; 

BOOL m_PatCompl_7_9 ; 

BOOL m_Pat Comp 1_GT 1 2 ; 

BOOL m_PatCompl_LTl ; 

CString m_GRAVITY; 

//} }AFX_DATA 



Implementation 
protected: 

virtual void DoDataExchange (CDataExchange* pDX) ; // DDX/DDV support 
// Generated message map functions 



//{{AFX_ 


MSG(CPTDInp) 




virtual 


BOOL 


OnlnitDialog ( ) ; 


afx_msg 


void 


OnRButtonDown (UINT nFlags, CPoint point) 


afx_msg 


void 


OnAcogN ( ) ; 


afx_msg 


void 


OnAcogY ( ) ; 


afx_msg 


void 


OnFfnNegO ; 


afx_msg 


void 


OnFf nPos ( ) ; 


af x_msg 


void 


OnMgQuads ( ) ; 


af x_msg 


void 


OnMgTriplets () ; 






OnMgTwins { ) ; 


afx_msg 


void 


OnMultGest 0 ; 
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afx_msg 


void 


OnDilitationl () ; 


afx_msg 


void 


OnDilitationl2 () ; 


afx_msg 


void 


OnDilitation2 () ; 


afx_msg 


void 


OnDilitation23 {) ; 


afx_msg 


void 


OnDilitationS () ; 


afx_msg 


void 


OnDilitationGtS () ; 


afx_msg 


void 


OitDilitationLtl 0 ; 


afx_msg 


void 


OnDilitationUknO ; 


afx_msg 


void 


OnCervFirmO ; 


afx_msg 


void 


OnCervMod { ) ; 


afx_msg 


void 


OnCervSof t ( ) ; 


afx_msg 


void 


OnVaginalBleeding ( ) ; 


afx_nisg 


void 


OnVbGross () ; 


afx_msg 


void 


OnVbMed ( ) ; 


afx_msg 


void 


OnVbTrace ( ) ; 


afx_msg 


void 


On2Comp() ; 


afx_msg 


void 


On2Compl {} ; 


afx_msg 


void 


On2Comp2 {) ; 


afx_msg 


void 


On2Comp3 () ; 


afx_msg 


void 


OnPatientCompl () ; 


afx_insg 


void 


OnPcll3 0 ; 


afx_msg 


void 


OnPcll012 0 ; 


afx_msg 


void 


OnPcl46 {) / 


afx_msg 


void 


OnPcl79 0 ; 


afx_msg 


void 


OnPclGtl2 0 ; 


afx_msg 


void 


OnPclLtl { ) ; 


virtual 


void 


OnOKO ; 


afx_msg 


void 


OnEoAsianO ; 


afx_insg 


void 


OnEoBlackO ; 


afx_msg 


void 


OnEoHispcUiic 0 ; 


afx_msg 


void 


OnEoNativeAmericanO ; 


afx_msg 


void 


OnEoOther ( ) ; 


afx_msg 


void 


OnEoWhite () ; 


afx_msg 


void 


OnMsDi vorced ( ) ; 


afx_msg 


void 


OnMsLwp ( ) ; 


afx_msg 


void 


OnMsMarriedO ; 


afx_msg 


void 


OnMsOther ( ) ; 


afx_msg 


void 


OnMsSingle () ; 


afx msg 


void 


OnEoWidowed ( ) ; 


//}TaFX MSG 






DECIiARE_MESSAGE_MAP ( ) 





}; 



// ptdgoto.cpp : implementation file 
/ 

#include "stdafx.h" 
#include "ptdinp.h" 
#include "ptdgoto.h" 

#ifdef _ DEBUG 

#undef THIS_FILE 

static char BASED_CODE THIS_FILE[] = FILE; 
#endif 
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// CPtdGoto dialog 

CPtdGoto: : CPtdGoto (CWnd* pParerit /*=NULL*/) 
: CDialog (CPtdGoto : :IDD, pParent) 

// { {AFX_DATA_INIT (CPtdGoto) 

m_IDStr = ""; 

m_GotoMode = -1; 

m_RecNum = 0; 

// } }AFX_DATA_INIT 



void CPtdGoto: iDoDataExchange (CDataExchange* pDX) 



CDialog: :DoDataExchange (pDX) ; 
// { { AFX_DATA_MAP (CPtdGoto) 

DDX_Text (pDX, IDC_E_GOTO_ID_NUM, m_IDStr) ; 
DDX_Radio(pDX, IDC_R_GOTO_SEL1 , m_GotoMode) ; 
DDX_Text (pDX, IDC_E_GOT0_REC_Niny[, m_RecNum) ; 
DDV MinMaxLong(pDX, m_RecNum, 0, 100000); 
/ / } yAFX_DATA_MAP 

BEGIN MESSAGE_MAP (CPtdGoto, CDialog) 

// { { AFX_MSG_MAP (CPtdGoto) 

// NOTE: the ClassWizard will add message map macros here 

//}}AFX_MSG_MAP 
END_MESSAGE_MAP { ) 



class CPtdGoto : public CDialog 

// Construction 
public : 

CPtdGoto (CWnd* pParent = NULL) ; // standard constructor 

// Dialog Data 

// { {AFX_DATA ( CPtdGoto) 
enum { IDD = IDD_D_GOTO ) ; 
CString m_IDStr; 
int m_GotoMode ; 
long m_RecNum; 
//}}AFX_DATA 

/ / Implementation 
protected: 

virtual void DoDataExchange (CDataExchange* pDX) ; // DDX/DDV support 



{ 




// ptdgoto.h : header file 
// 
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// Generated message map f mictions 
//{{AFX MSG(CPtdGoto) 

// NOTE: the ClassWizard will add member functions here 
//}}AFX_MSG 
DECLARE_MESSAGE_MAP ( ) 



// PTDidoc.cpp : implementation of the CPTDinpDoc class 

// 

iinclude "stdafx.h" 
#include "PTDinp . h" 

#include "PTDidoc.h" 
# i nc lude " PTDGo to . h " 
#include "aa_nets.h" 

#ifdef _DEBUG 
#undef THIS_FILE 

static char BASED_CODE THIS_FILE [] = _FILE_; 
#endif 

/////////////////////////////////////////////////////////////////////////// 
/////////////////////////////////////////////////////////////////////////// 
// CPTDinpDoc 

IMPLEMENT_DYNCREATE ( CPTDinpDoc , CDocument ) 

BEGIN_MESSAGE_MAP { CPTDinpDoc , CDocument ) 

// { {AFX_MSG_iy[AP (CPTDinpDoc) 

ON_COMMAND(ID_REC_FIRST, OnRecFirst) 

ON_COMMAMD ( ID_REC_LAST, OnRecLast) 

ON_COMMAND ( ID_REC_NEXT , OnRecNext ) 

ON_COMMAMD ( ID_REC_PREV, OnRecPrev) 

ON_COiyiMAND ( ID_FILE_OPEN, OnFileOpen) 

ON_COM]yiAND ( ID_BLD_NET_FILE , OnBldNetFile) 

ON_COMMAND ( ID_REC_GOTO , OnRe cGotO ) 

ON_COMMAND ( ID_FILE_MRU_FILE1 , OnFileMruFilel) 

ON_C0MMAND ( ID_FILE_MRU_FILE2 , OnFileMruFile2 ) 

ON_COM]yiAND (ID_FILE_MRU_FILE3, OnFileMruFileS ) 

ON COMMAND (ID_FILE_MRU_FILE4, OnFileMruFile4) 

//y}AFX_MSG_iyiAP 
END_MESSAGE_MAP ( ) 

/////////////////////////////////////////////////////////////////////////// 
/////////////////////////////////////////////////////////////////////////// 
// CPTDinpDoc construction/ destruction 

CPTDinpDoc : : CPTDinpDoc { ) 

CurRecord = 0; 
NumRecords = 0 ; 

s trcpy { PathName , " " ) ; 
IDStr = ""; 
GotoMode = 0; 

InitializeRec () ; 
LoadNets 0 ; 
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m NetPosl 


= 0 


0; 


m NetNegl 


= 0 


0; 


m NetPos2 


= 0 


0; 


m_NetNeg2 


= 0 


0; 


m_NetPos3 


= 0 


0; 


in_NetNeg3 


= 0 


0; 



CPTDinpDoc : : -CPTDinpDoc ( ) 

(CPTDinpApp*) Af xGetApp ( ) ) - >m_pDoc = NULL; 



} 

BOOL CPTDinpDoc : : OnNewDocument ( ) 

if ( ! CDocument : : OnNewDocument ( ) ) 
return FALSE; 

{ ( CPTDinpApp* ) Af xGetApp ( ) ) - >m_j)Doc = this ; 

// TODO: add reinitialization code here 

// (SDI documents will reuse this document) 

return TRUE; 

} 

/////////////////////////////////////////////////////////////////////////// 
/////////////////////////////////////////////////////////////////////////// 
// CPTDinpDoc serialization 

void CPTDinpDoc :: Serialize (CArchivea ar) 

if (ar.IsStoringO ) 

// TODO: add storing code here 

else 

// TODO: add loading code here 



/////////////////////////////////////////////////////////////////////////// 

1 1 1 1 1 / 1 / 1 11 / 1 1 1 { / 1 n 1 1 n I / 1 1 // 1 in n / 1 u n 1 1 1 / 1 1/ 1 1 1 1 1 n 1 1 1 1 1 1 1 1 1 II I n 1 1 1 / 1 

II CPTDinpDoc diagnostics 
#ifdef _DEBUG 

void CPTDinpDoc : :AssertValid ( ) const 



CDocument: : Assert Valido () ; 

CPTDinpDoc: :Dump {CDumpContext& dc) const 
CDocument: :Dump(dc) ; 



lendif // _DEBUG 
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// CPTDinpDoc commands 



void 



CPTDinpDoc : rOnRecFirst () 



{ 



CurRecord = 0; 
get_rec (Rec) ; 



void 



CPTDinpDoc : : OnRecLast ( ) 



CurRecord = NumRecords - 1; 
get_rec(Rec) ; 



void 



CPTDinpDoc : : OnRecNext ( ) 



CurRecord = min (CurRecord + 1, NumRecords - 1) ; 
get_rec (Rec) ; 

} 

void CPTDinpDoc: :OnRecPrev() 

CurRecord = max ( CurRecord - 1, 0) ; 
get_rec (Rec) ; 



void CPTDinpDoc : : get_rec { char* pRec ) 

FILE *fp; 
char *stmp; 

fp = fopenCPathName, "rb") ; 
if(fp==NULL) { 
} else { 

f seek (fp, (long) ( (REC_LENGTH + 2L) *CurRecord) , SEEK_SET) ; 
f read (pRec, sizeof (char) , (REC_LENGTH + 2L) , fp) ; 
f close (fp) ; 



m_LAB_ID = get f Id (pRec, 1 , 12) ; 
m_NAME_L = get_f Id (pRec ,13,24) ; 
m_NAME_F = get_fld(pRec, 37, 24) ; 
m_NA!yiE_MI = get_f Id (pRec ,61,2) ; 

m_DATE_OF_DATA_ENTRY = get f Id (pRec, 63, 10) //time 
m_PATIENT_AGE = (double) atof (get_fld (pRec, 73, 20)) 
m_DATE_OF_BIRTH = get_f Id (pRec, 93 , 10) ; 
//stmp = get_fld(pRec, 103, 2) ; 

//if(stmp[0] == '1') m_ETHNIC_ORIGIN_WHITE = ("1"); else 
m_ETHNIC_ORIGIN_WHITE = ( " 0 " ) ; 

//if (stmp [0] == '2') m_ETHNIC_ORIGIN_BLACK = ("1"); else 
m_ETHNIC_ORIGIN_BLACK = ("0") ; 



i;3 
ry 
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m ETHNIC_ORIGIN_ASIAN : 



else 



m_ETHNIC_ORIGIN_HISPANIC = ("1"); else 



//if(stmp[0] == '3') 
1_ETHNIC_0RIGIN_ASIAN = (" 

//if (stmp [0] == '4') 
l_ETHNrC_ORIGIN_HISPANIC = ("0"); 

//if (stmp [0] == '5') m_ETHNIC_ORIGIN_NATIVE_AMERICAN = ("1"), 
l_ETHNIC_ORIGIN_NATIVE AMERICAN = ( " 0 " ) ; 

//if (stmp [0] == '6') m_ETHNIC_0RIGIN_OTHER = ("1"); else 
i_ETHNIC_ORIGIN_OTHER = ( " 0 " ) ; 

m_ETHNIC_ORIGIN_WHITE = get_f Id (pRec , 103 , 2) ; 

m_ETHNIC_ORIGIN_BLACK = get_f Id (pRec, 105, 2) ; 

m_ETHNIC_ORIGIN_ASIAN = get_f Id (pRec, 107, 2) ; 

m_ETHNIC_ORIGIN_HISPANIC = get_f Id (pRec, 109, 2) ; 

m_ETHNIC_ORIGIN_NATIVE_AMERICAN = get_f Id (pRec, 111, 2) ; 

m_ETHNIC_ORIGIN_OTHER = get_f Id (pRec ,113,2); 

Stmp = ge t_f Id (pRec, 115,2) ; 

if (stmp [0] == '1') m_MARITAL_STATUS_SINGLE = ("1"); else 
i_MARITAL_STATUS_S INGLE = ( " 0 " ) ; 

if (stmp [0] == '2') m_MARITAL_STATUS_MARRIED = ("1"); else 
l_MARITAL_STATUS_MARRIED = ( " 0 " ) ; 

if (stmp [0] == '3') m_MARITAL_STATUS_DIVORCED = ("1"); else 
i_MARITAL_STATUS_DIVORCED = ("0") ; 

if (stmp [0] == '4') m_MARITAL_STATUS_WIDOWED = ("1"); else 
l_MARITAL_STATUS_WIDOWED = ("0"); 

if (stmp [0] == '5') m_MARITAL_STATUS_LWP = ("1"); else 
»_iyiARITAL_STATUS_LWP = ( " 0 " ) ; 

if (stmp [0] == '6') m_MARITAL_STATUS_OTHER = ("1"); else 
i_MARITAL_STATUS_OTHER = ( " 0 " ) ; 

m_ACOG_SYNPTOMS = get_f Id (pRec ,117,2); 

stnp = get_fld{pRec,119,2) ; 

if (stmp [0] == '0') m_VAGINAL_BLEEDING = ("0") ; else 
1_VAGINAL_BLEEDING = ("1"); 

if (stmp[0] == '1') m_VAGINAL_BLEEDING_TRACE = ("1"); else 
l_VAGINAL_BLEEDING_TRACE = ("0") 

if (stmp[0] == '2') m_VAGINAL_BLEEDING_MEDIUM = {"1"); else 
i_VAGINAL_BLEEDING_MEDIUM = ( " 0 " ) ; 

if (stmp[0] == '3') m_VAGINAL_BLEEDING_GROSS = ("1"); else 
i_VAGINAL_BLEEDING_6R0SS = ("0") 

if (stmp [0] == 0) m_VAGINAL_BLEEDING = ("0") 



m_PATIENT_COMPLAINT 
m_PATIENT_COMPLAINT 
m_PATIENT_COiyiPLAINT" 
m_PATIENT_COMPLAINT 
m_PAT I ENT_COMPLAINT^ 
m_PAT I ENT_C0MPLAINT_6 
stmp_get_f Id 
if (stmp [0" 



ge t_f Id (pRec ,121,2) 
get_f Id (pRec , 123 , 2 ) 
get_f Id (pRec ,125,2) 
get_f Id (pRec ,12 7,2) 
get_f Id (pRec , 12 9 , 2 ) 
_ get_fld(pRec,131,2) 
:ec,133,2) ; 

) m_PATIENT_COMPLAINT 



i_PATIENT_COMPLAINT_l_LT 1 = ( " 0 " ) ; 

if (stmp [0] == '2') m_PATIENT_COMPLAINT_l_l_3 
i_PATIENT_C0MPLAINT_l_l_3 = ( " 0 " ) ; 

if (stmp [0] == '3') m_PATIENT_COMPLAINT_l_4_6 = 
i_PATIENT_C0MPLAINT_l_4_6' = ( " 0 " ) ; 

if (stmp [0] == '4') m_PATIENT_COMPIiAINT_l_7_9 = 
i_PATIENT_C0MPLAINT_l_7_9 ( " 0 " ) ; 

if ( stmp ( 0 ] == ' 5 ' ) m_PATIENT_COMPLAINT_l_10_12 
i_PATIENT_COMPLAINT_l_10_12 = ("0"); 

if (stmp [0] == '6') m_PATIENT_C0MPLAINT_l_GT12 
i_PATIENT_COMPLAINT_l_G T12 = ("0"); 

m_EGA_BY_SONO = get_f Id (pRec , 135 , 8 ) ; 
m_EGA_BY_LMP = get_f ld(pRec, 143 , 8) ; 
m_EGA_AT_SAMPLING = get_fld (pRec, 151, 8) 
m_GRAVITY = get_f Id (pRec, 159, 2) ; 



LTl = ("1") ;else 



("1") ; else 
= ("1"); else 
= ("1"); else 
("1") ; else 
") ; else 
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m_PARITY = get_fld(pRec, 161,2) ; 
m_ABORTIONS = get_f Id (pRec, 163 , 2) ; 
stmp = get_fld(pRec, 165, 2) ; 



if (stmp [0] 
if (stmp [0] 



' 2 ' ) m_2 



if (stmp [0] == '3') 



_COMP_ 
_COMP_2 = 
COMP 



("1 



("1") ; 



else m_2_C0MP_: 
else m_2_C0MP_ 
else m 2 COMP 



COMP = get_fld(pRec, 167,2) 

m_l_COMP = get_fld(pRec,169,2) 
m_2_C0MP = get_fld(pRec,171,2) 
m_3_COMP = get_fld(pRec,173,2) 
m_4_C0MP = get_f Id (pRec, 175,2) 
m_5_C0MP = get_fld(pRec, 177,2) 
m_6_COMP = get_fld(pRec,179,2) 
stmp = get_fld(pRec, 181, 2) ; 

if (stmp[0] == [0] ,_MULTIPLE_GESTATION ("0") 
i_MULTIPLB_GESTATION = ( " 1 " ) ; 

if (stmp [0] == 'l')("l"); m_MULTIPLE_GESTATION_TWINS - 
i_MULTIPLE_GESTATION_TWINS = ("0"); 

if (stmp [0] == '2') m_MULTIPLE_GESTATION_TRIPLETS = ("1 
i_MULTI PLE_GESTAT ION_TRI PLETS = ( " 0 " ) , 

if (stmp [0] == '3') m_MULTIPLE_GESTATION_QUADS = ("1"); 
i_MULTIPLE_GESTATION_QUADS = ("0"); 

if (stmp [0] == 0) m_MUIiTIPLE_GESTATION = ("0"); 

m_UTCERV_ABNORMALITY = get_f Id (pRec ,183,2); 

m_CERVICAL_CERCLAGE = get-f Id (pRec, 185 , 2) ; 

m_GESTATIONAL _DIABETES = get_f Id (pRec, 187, 2) ; 

m_HYPERTENSIVE_DISORDERS = get_f Id (pRec, 189 , 2) ; 

stmp = get_fld(pRec,191,2) ; 

if (stmp [0] == '0') m_DILITATION_UNKNOWN = ("1"); else 
iDILITATIONUNKNOWN = ("0") 



("0") 
("0") 
("0") 



else 



("1") ; else 





if (stmp [0] == 


'D 


m_DILITATION_LTl = 


("1") 


• else m_DrLITATION LTl = 


"0" 


if (stmp [0] == 


'2' ) 


m_DILITATION_l = ( 


■1") ; 


else m_DILITATION_l = 


("0" 


if (stmp [0] == 


'3') 


m_DILITATION_l_2 = 


("1" 


; else m_DILITATION_l_2 = 


(MO- 


' if (stmp [0 3 == 


'4') 


m_DILITATI0N_2 = ( 


'1") ; 


else m_DILITATI0N_2 = 


CO" 


; 

if (stmp [0] == 


'5') 


m_DILITATION_2_3 = 


Cl" 


; else m_DILITATION_2_3 = 


CO- 


; 

if (stmp [0] == 


'6') 


m_DILITATION_3 = ( 


'1") ; 


else m_DILITATION_3 = 


CO- 
CO" 


; 

if (stmp ([0] == 

; 


' 7' 


) m_DILITATI0N_GT3 


= ("1 


') ; else m_DILITATI0N_GT3 = 



stmp = get_f Id (pRec, 193 , 2) ; 
if (stmp [0] == '1') m_CERVICAL__CONSISTANCY_FIRM = 
i_CERVICAL_CONSISTANCY_FIRM = ("0") ; 

if (stmp[0] == '2') m_CERVICAL_CONSISTANCY_MOD = (": 
i_CERVI CAL_CONS I STANCY_MOD = ( " 0 " ) ; 

if (stmp[0] == '3') m_CERVICAL_CONSISTANCY_SOFT = ( 
l_CERVICAL_CONSISTANCY_SOFT = ("0"); 

m_ANTIBIOTICS = get_f Id (pRec , 195 , 2 ) ; 
m_CORTICOSTEROIDS = get_f Id (pRec, 197 , 2 ) ; 
m_TOYOLYTICS = get_f Id (pRec, 199 , 2) ; 
m_INSULIN = get_fld(pRec, 2 01,2) ; 
m_ANTIHYPERTENSIVES = get_f Id (pRec, 203 , 2) ; 
m_MEDICATIONS_NONE = get_f Id (pRec ,205,2) ; 
m_MEDICATIONS_UNKNOWN = -get_f Id (pRec , 2 07 , 2 ) ; 
m_FFN_RESUIiT = get_f Id (pRec, 209 , 2 ) ; 
m_NetPosl = (double) atof (get_f Id (pRec, 211, 20)); 
m_NetNegl = (double) atof (get_f Id (pRec, 231, 20)); 



Cl") ; else 
1") ; else 
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m_NetPos2 = (double) atof (get_f Id (pRec, 251, 20)); 

m_NetNeg2 = (double) atof (get_f Id (pRec, 271, 20)); 

m_NetPos3 = (double) atof (get_f Id (pRec, 291, 20)); 

m_NetNeg3 = (doxible) atof (get-f ld(pRec, 311, 20)); 

UpdateAllViews (NULL) ; 



char* CPTDinpDoc: :get_fld (char* pRec, int ofs, int len) 
int i ; 

for( i = 0; i < len; i++) { 

fld[i] = pRec [ofs-l+i] ; 



} 

fid [len] = 0; 
for( i = len-1; i > 
if (fid [i] == 
fld[i] 
} else { 

break; 

> ' 

return fid; 



') { 



-) { 



CTimeSc CPTDinpDoc : :get_tirae_f id (char* pRec, int iofs, int len) 



int i; 
int m,d,y; 
int ofs; 



for( i = 0; i < len; i++) { 

fld[i] = pRec (iofs-l+i] ; 



} 

for( i = len-1; i > 0; i- 
if(fld[i] == 

fld[i] = 0; 
} else { 

break; 

strcpy (tstr, f Id) ; 
m = d = y = 0 ; 
ofs = 0; 

while (tstr [of s] == ' ' 
m = atoi (Sitstr [of s] ) ; 
while (tstr [ofs] >- '0' 
while (tstr [of s] == '/' 
d = atoi (&tstr [ofs] ) ; 
if (d ==0) d = 1; 
while (tstr [ofs] >= '0' 
while (tstr [ofs] == '/' 
y = atoi (Sctstr [ofs] ) ; 
if (y<100) y += 1900; 

CTime t (y,m,d, 0, 0, 0) ; 
tim = t; 
return (titn) ; 



-) { 



) ofs++; // skip spaces; 



&& tstr [ofs] 
I 1 tstr [ofs] 



&& tstr [ofs] 
I I tstr [ofs] 



'9') ofs++; // skip number 
'-') ofs++; // skip delimiter 



'9') ofs++; 
'-') ofs++i 



// skip number 
// skip delimiter 
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void CPTDinpDoc : : put re c (char* 

{ 

FILE *fp,- 
CString stmp; 



pRec) 



put_f Id (pRec , m_LAB_ID ,1,12); 

put_f Id (pRec , m_NAME_L ,13,24); 

put_fld(pRec, m_NAME_F ,37,24); 

put_f Id (pRec , m_NAME_MI ,61,2); 

put_f Id (pRec , m_DATE_OF_DATA_ENTRY ,63,10); 

put_dbl_f Id (pRec , m_PATIENT_AGE ,73,20); 

put_f Id (pRec , m_DATE_OF_BIRTH ,93,10); 

//Stmp = ■' "; 

//if{ m_ETHNIC_ORIGIN_WHITE == "1" ) stmp = "1" 
//if ( m_ETHNIC_ORIGIN_BLACK == "1" ) Stmp = "2" 
//if ( m_ETHNIC_ORIGIN_ASIAN == "1" ) stmp = "3" 
//if ( m_ETHNIC_ORIGIN_HISPANIC == "1" ) stmp = 
//if { m_ETHNIC_ORIGIN_NATIVE_AMERICAN == ) stmp 
//if ( m_ETHNIC_ORIGIN_OTHER == "1" ) stmp = "6" 
//put_fld(pRec, stmp, 103, 2); 

put_f ld{pRec, m_ETHNIC_ORIGIN_WHITE ,103,2) 
put_f ld(pRec, m_ETHNIC_ORIGIN_BLACK ,105,2) 
put_fld(pRec, m_ETHNIC_ORIGIN_ASIAN ,107,2) 
put_fld(pRec, m_ETHNIC_ORIGIN_HISPANIC ,109,2) 
put_f Id (pRec , m_ETHNIC_ORIGIN_NATIVE_AMERICAN 
put_f Id (pRec , m_ETHNIC_ORIGIN_OTHER ,113,2); 



Stmp = " " ; 

if( m_MARITAL_STATUS_S INGLE == " 
if( m_MARITAL_STATUS_iyiARRIED == 
if( m_MARITAL_STATUS_DIVORCED == 
if ( m_MARITAL_STATUS_WIDOWED == 



) stmp + "1" 
" ) stmp "2"; 
1" ) stmp = " 
stmp "4"; 



if ( m_MARITAL_STATUS_LWP == "1" ) stmp 
if( m_MARITAL_STATUS_OTHER == "1" ) stmp = "6"; 

put_fld(pRec, stmp, 115, 2); 

put_f Id (pRec , m_ACOG_SYNPTOMS ,117,2); 
stmp = " " ; 

if( m_VAGINAL_BLEEDING == "O" ) stmp = "0"; 
if( m_VAGINAL_BLEEDING_TRACE == "1" ) Stmp = "1"; 
if { m_VAGINAL_BLEEDING_MEDIUM == "1" ) stmp = "2" 
if( m_VAGINAL_BLEEDING_GROSS == "1" ) Strap = "3"; 
put_f ld(pRec, Stmp, 119, 2); 

put_fld(pRec, m_PATIENT_COMPLAINT_l ,121,2) 
put_fld(pRec, m_PATIENT_C0MPLAINT_2 ,12 3,2) 



put_f Id (pRec , m_PATIENT_COMPLAINT_ 

put_f Id (pRec , m_PATIENT_COMPLAINT_4 

put_f ld(pRec, m_PATIENT_COMPLAINT_5 

put_f Id (pRec , m_PATIENT_COMPLAINT_6 

stmp = " " ; 

if{ m_PATIENT_COMPLAINT_l_LTl == "1" 

if( m_PATIENT_C0MPLAINT_l_l_3 == "1" 

if( m_PATIENT_C0MPLAINT_l_4_6 == "1" 



125,2) 
127,2) 
129,2) 
,131,2) 



) stmp = 
) stmp = 
) stmp = 
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if( m_PATIENT_COMPLAINT_l_7_9 == "1" ) Stmp = 
if( m_PATIENT_COMPLAINT_l_10_12 == "1" ) stmp ^ 
if( m_PATIENT_C0MPLAINT_l_GT12 == "1" ) stmp = 
put_fld(pRec, stmp, 133, 2) ; 



put_f Id (pRec 
put_f Id (pRec 
put_f Id (pRec 
put_f Id (pRec 
put_f Id (pRec 
put_f ld(pRec 



m_EGA_B Y_S ONO ,135,8) ; 
m_EGA_BY_LMP , 143 , 8) ; 
m_EGA_AT_SAMPLING ,151,8); 
m_GRAVITY ,159,2) ; 
m_PARITY, 161,2); 
m ABORTIONS, 163,2) ; 



stmp = " " ; 

if( m_2_COiyiP_l == "1" ) stmp = "1" 
if( m_l_C0MP_2 == "1") stmp = "2"; 
if ( m_2_COMP_3 == "1" ) stmp = "3" 
put_fld(pRec, stmp,165,2); 



put_f ld(pRec 
put_f ld(pRec 
put_f ld(pRec 
put_f ld(pRec 
put_f ld(pRec 
put_f ld(pRec 
put_f ld(pRec 



m_0_COMP ,167,2) 

m_l_COMP ,169,2) 

m_2_COMP ,171,2) 

m_3_COMP ,173,2) 

m_4_C0MP ,175,2) 
m_5_COMP 
m 6 COMP 



,177,2) 
, 179,2) 



) stmp : 



stmp = " " ; 

if ( m_MULTIPLE_GESTATION == 

if( m_MULTIPLE_GESTATION_TWINS == "1" ) stmp 
if ( m_MULTIPLE_GESTATION_TRIPLETS == "1" ) stmp = "2 
if{ m_MULTIPLE_GESTATION_QUADS == "1" ) stmp = "3"; 

put_fld(pRec, stmp, 181, 2) ; 

put_f Id (pRec , m_UTCERV_ABNORMALITY ,183,2) ; 
put_f Id (pRec , m_CERVICAL_CERCIaAGE ,185,2); 
put_f Id (pRec , m_GESTATIONAL_DIABETES ,187,2); 
put_f Id (pRec , m_HYPERTENSIVE_DISORDERS ,189,2); 

stmp = " " ; 

if ( m_DILITATION_UNKNOWN == 
if ( m_DILITATION_LTl == "1" ) stmp 
if( m_DILITATION_l == "1" ) stmp = 
if( m_DILITATI0N_l_2 == "1") stmp"3"; 
if( m_DILITATION_2 == "1" ) stmp = "4 
if( m_DILITATION_2_3 == "1" ) stmp = 
if (m_DILITATION_3 == "1" ) stmp = "6" 
if ( m_DILITATION_GT3 == "1" ) stmp = 
put-fid (pRec, stmp, 191, 2); 

stnp = " " ; 

if( m_CERVICAL_CONSISTANCY_FIRM == "1 
if( m_CERVICAL_CONSISTANCY_MOD == 
if ( m_CERVICAL_COMSISTANCY_SOFT 
put_fld(pRec, stitvp, 193,2) ; 



stmp = "0"; 



" ) stmp = 

) Stmp = 
1" ) stmp 



put_f Id (pRec 
put_f Id (pRec 
put_f Id (pRec 
put_f Id (pRec 
put_f Id (pRec 
put_f Id (pRec, 



m_ANTIBIOTICS ,195,2); 
m_CORTICOSTEROIDS ,197,2); 
m_TOYOLYTICS ,199,2) ; 
m_INSULIN , 201, 2) ; 
m_ANTIHYPERTENSIVES ,203,2) ; 
m_MEDICATIONS_NONE ,205,2); 
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put_f Id (pRec , m_MEDICATIONS_UNKNOWN 
put_f Id (pRec , m_FFN_RESULT ,209,2) ; 



put_net_f Id (pRec 
put_net_f Id (pRec 
put_net_f Id (pRec 
put_net_f Id (pRec 
put_net_f Id (pRec 
put_net_f Id (pRec 



m_NetPosl,211, 
m_NetNegl, 231, 
m_NetPos2, 251, 
m_NetNeg2,271, 
m_NetPos3,291, 
m_NetNeg3,311, 



fp = fopen (PathName, "r+b" ) ; 
if(fp==NULL) { 

fp = fopen (PathName, "wb" ) ; 
if(fp!=NULL) { 

f write (Rec, sizeof (char) , (REC_LENGTH+2L) , fp) ; 
fflush{fp) ; 
f close (fp) ; 



} else 



f'seek (fp, (long) ( (REC_LENGTH+2L) *CurRecord) , SEEK_SET) ; 
f write (pRec, sizeof (char), (REC_LENGTH+2L) , fp) ; 
fflush(fp) ; 
f close (fp) ; 



UpdateAllViews (NULL) ; 

} 

void CPTDinpDoc: :put_fld(char* pRec, CString& dat, int ofs, int len) 



strcpy (fld,dat) ; 
fill = 0; 

for( i = 0; i < len; i++) { 

if (fld[i] == 0) fill = 1; 
if(fill==0) { 

pRec (of s-l+i] = fld[i]; 
} else { 

pRec [of s-l+i] = (char)' 



} 

void CPTDinpDoc : :put_dbl_f Id (char* pRec, double dat, int ofs, int len) 



sprintf (fid, " %20 . 41f " , dat) ; 
for{ i = 0; i < len; i++) { 
^ pRec [of s-l+i] = fld[i]; 



void CPTDinpDoc : :put_net_f Id (char* pRec, double dat, int ofs, int len) 
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sprintf (fid, "%20 .161f " , dat) ; 
for( i = 0; i < len; i++) { 
^ pRec[ofs-l+i] = fld[i]; 

} 

void CPTDinpDoc: :put-time-f Id (char* pRec, CTime& dat, int ofs, int len) 

int i; 
char *pfld; 

pfld = time2str (dat) ; 
strcat (pfld, " ") ; 

for( i = 0; i < len; i++) { 

pRec [of s-l+i] = pfld[i]; 



void CPTDinpDoc: rOnBldNetFileO 
FILE *fp; 

/ / Get the File Name 

CFileDialog Dig (FALSE, "ndb", NULL, OFN_OVERWRITEPROMPT , 

"NDB lies (*.nbd) ! |*.ndbi I ") ; 
Dlg.m_ofn.lpstrTitle = "Open fixed length Network DataBase file"; 
if( Dlg.DoModalO == IDOK ) { 

strcpy (NetName , Dig . Get PathName ( ) ) ; 

// open the new file 

fp = fopen (NetName, "wb") ; 

if (fp == NULL) { 

AfxMessageBox ("Could not open the neural network output 



} else { 



// build the record 
CurRecord = 0; 
HCURSOR hcurSave; 

hcurSave = SetCursor (LoadCursor (NULL, IDC_WAIT) ) ; 
while ( CurRecord < NumRecords ) { 

// read the PTD record 

get_rec (Rec) ; 

// run the networks 
RunNets (CurRecord) ; 

// build the output record 
put_fld(NetRec, m_LAB_ID, 1, 12); 

put_net_f Id (NetRec, m_NetPosl, 13, 20) 

put_net_f Id (NetRec, m_NetNegl, 33, 20) 

put_net_f Id (NetRec, m_NetPos2 , 53, 20) 

put_net_f Id (NetRec, m_NetNeg2, 73, 20) 

put_net_f Id (NetRec, m_NetPos3, 93, 20) 
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put_net_f Id (NetRec , m_NetNeg3, 113, 20); 
NetRec[132] = (char)OxOd; 
NetRectl33] = (char)OxOa; 

// write the output record 

f write (NetRec, sizeof (char) 134, fp) 

// increment to the next PTD record 
CurRecord +=1; 

} 

close the new file 
f close (fp) ; 
SetCursor (hcurSave) ; 

} 

} 



void CPTDinpDoc : : InitializeRec ( ) 

// add one-time construction code here 

for(int i = 0; i < REC_LENGTH; i++) Rec[i] = (char)' ' ; 

Rec [REC_LENGTH] = (char) OxOd; 

Rec [REC_LENGTH + IL] = (char) OxOa; 

//CTime Dtirae (1900 , 1, 1, 0 , 0 , 0) ; 
char* Dtime = "mm/dd/yy"; 

m_LAB_ID = ( " " ) ; 
m_NAME_L = ( " " ) ; 
m_NAME_F = ( " " ) ; 
m_NAME_MI = ( " " ) ; 

m_DATE_OF_DATA_ENTRY = time2str (CTime: : Get CurrentTime ()) ; 
m_PATIENT_AGE = 0.0; 
m_DATE_OF_BIRTH = Dtime; 
m_ETHNIC_ORIGIN_WHITE = ( " " ) ; 
m_ETHNIC_ORIGIN_BLACK = ( " " ) ; 
m_ETHNIC_ORIGIN_ASIAN = (""); 
m_ETHNIC_ORIGIN_HISPANIC = (""); 
m_ETHNIC_ORIGIN_NATIVE_AMERICAN = ( " " ) ; 
m_ETHNIC_ORrGIN_OTHER = (""); 
m_MARITAL_STATUS_SINGLE = ( " " ) ; 
m_iyiARITAL_STATUS_MARRIED = ( " " ) ; 
m_MARITAL_STATUS_DIVORCED = ( " " ) ; 
m_MARITAL_STATUS_WIDOWED = (""); 
m_MARITAL_STATUS_LWP = (""); 
m_MARITAL_STATUS_OTHER = ("") ; 
m_ACOG_SYNPTOMS _= ( " " ) ; 
m_PATIENT_COMPLAINT_l = ( " " ) ; 
m_PATIENT_C0MPLAINT_l_l_3 = ( " " ) ; 
m_PATIENT_COiyiPLAINT_l_10_12 = (" " ) ; 
m_PATIENT_COMPLAINT_l_4_6 = ( " " ) ; 
m_PATIENT_COiyiPLArNT_l_7_9 = ( " " ) ; 
m_PATIENT_C0MPLAINT_l_GT12 = (""); 
Tn_PATIENT_COMPIjAINT_l_LTl = ( " " ) ; 
m_VAGINAL_BLEEDING = ( " " ) ; 
m_VAGINAL_BLEEDING_TRACE = ( " " ) ; 
m_VAGINAL_BLEEDING_MEDIU]yi = ( " " ) ; 



-51- 



m_VAGINAL_BLEEDING_GROSS = ( " " ) ; 
m_PATIENT_C0MPLAINT_6 = ( " " ) ; 
m_PATIENT_COMPLAINT_3 = { " " ) ; 
m_PATIENT_C0MPLAINT_2 = { " " ) ; 
m_PATIENT_C0MPLAINT_5 = {""); 
m_PATIENT_COMPIjAINT_4 = ( " " ) ; 
m_EGA_BY_SONO = "ww.d"; 
m_EGA_BY_LMP = "ww.d"; 
m_EGA_AT_SAMPLING = "ww.d"; 
m_0_COMP = ( " " ) ; 
m_l_COMP = ( " " ) ; 
m_2_COMP = ( " " ) ; 
m_3_C0MP = ( " " ) ; 
m_4_C0MP = ( " " ) ; 
m_5_C0MP = ( " " ) ; 
m_6_C0MP = ( " " ) ; 
m_2_C0MP_l = ( " " ) ; 
m_2_C0MP_2 = ( " " ) ; 
m_2_COMP_3 = ( " " ) ; 
m_GRAVITY = ( " " ) ; 
m_PARITY = ( " " ) ; 
m_ABORTIONS = { " " ) ; 
m_MULTIPLE_GESTATION = ( " " ) ; 
ra_MULTIPLE_GESTATION_TWINS = (""); 
m_MULTIPLE_GESTATION_TRIPLETS = (""); 
m_MULTIPLE_GESTATION_QUADS = (""); 
m_UTCERV_ABNORMALITY = ( " " ) ; 
m_CERVICAL_CERCLAGE = ( " " ) ; 
ni_GESTATIONAL_DIABETES = ( " " ) ; 
m_HYPERTENSIVE_DISORDERS = ( " " ) ; 
m_DILITATION_LTl = { " " ) ; 
m_DILITATION_l = ( " " ) ; 
m_DILITATI0N_l_2 = ( " " ) ; 
m_DILITATI0N_2 = ( " " ) ; 
m_DILITATI0N_2_3 = ( " " ) ; 
m_DILITATI0N_3 = ( " " ) ; 
ni_DILITATI0N_GT3 = ( " " ) ; 
m_DILITATION_UNKNOWN = { " " ) ; 
m_CERVICAL_CONSISTANCY_FIRM = (""); 
m_CERVICAL_CONSISTANCY_MOD = ( " " ) ; 
m_CERVICAL_CONSISTANCY_SOFT = (""); 
m_AMTIBIOTICS = ( " " ) ; 
m_CORTICOSTEROIDS = (""); 
in_TOY01.YTICS = ( " " ) ; 
m_INSULIN = ( " " ) ; 
m_ANTIHYPERTENSIVES = (""); 
m_MEDICATIONS_NONE = (""); 
m_iyiEDICATIONS_UNKNOWN = ( " " ) ; 
m_FFN_RESULT = ( " " ) ; 



void CPTDinpDoc : : LoadNets { ) 



// load eight networks for each consensus 1-8 

if (LoadNet (1, "ega6_0") != 1) { 

AfxMessageBox{ "Could not load ega6_0"); 

if (LoadNet (2, "ega6_l") != 2) { 

AfxMessageBox ( "Could not load ega6_l") ; 
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if (LoacSNet (3, "ega6_2") != 3) { 

AfxMessageBox{ "Could not load ega6_2") ; 

f (IiOadNet(4, "ega6_3") 1= 4) { 

AfxMessageBox( "Could not load ega6_3") ; 

f (LoadNet (5, "ega6_4") != 5) { 

AfxMessageBox{" Could not load ega6_4") ; 

f (LoadNet (6, "ega6_5") != 6) { 

AfxMessageBox( "Could not load ega6_5") ; 

f (LoadNet (7, "ega6_6") != 7) { 

AfxMessageBox{ "Could not load ega6_6"); 

f (LoadNet (8, "ega6_7") != 8) { 

AfxMessageBox( "Could not load ega6_7") ; 



// load eight networks for each consensus 9-16 

if (LoadNet (9, "egad7f0") != 9) { 

AfxMessageBox(" Could not load egad7f0") ; 

f (LoadNet (10, "egad7fl") != 10) { 

AfxMessageBox(" Could not load egad7fl") ; 

f (LoadNet (11, "egad7f2") !=11) { 

AfxMessageBox(" Could not load egad7f2"); 

if (LoadNet(12, "egad7f3") !=12) { 

AfxMessageBox(" Could not load egad7f3"); 

if (LoadNet (13, "egad7f4") !- 13) { 

AfxMessageBox ( "Could not load egad7f4") ; 

f (LoadNet (14, "egad7f 5") != 14) { 

AfxMessageBox ( "Could not load egad7f5"); 

if (LoadNet (15, "egad7f6") != 15) { 

AfxMessageBox ("Could not load egad7f6") ; 

if (LoadNet (16, "egad7f7") != 16) { 

AfxMessageBox ("Could not load egad7f7") ; 



// load eight networks for each consensus 17-24 

if (LoadNet (17, "egadl4fO") !=17) { 

AfxMessageBox ( "Could not load egadl4f"); 

if (LoadNet (18, "egadl4fl") ! =18) { 

AfxMessageBox ( "Could not load egadl4fl"); 

if (LoadNet(19, "egadl4f2") !=19) { 

AfxMessageBox ( "Could not load egadl4f2"); 

if (LoadNet(20, "egadl4f3") !=20) { 

AfxMessageBox ( "Could not load egadl4f3"); 
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if (LoadNet (21, "egadl4f4") !=21) { 

AfxMessageBox( "Could not load egadl4f4"); 

if (LoadNet (22, "egadl4f5") != 22) { 

AfxMessageBox ( "Could not load egadl4f5"); 

if (LoadNet{23, "egadl4f6") != 23) { 

AfxMessageBox ( "Could not load egadl4f6"); 

if (LoadNet (24, "egadl4f7") != 24) { 

AfxMessageBox ("Could not load egadl4f7"); 



void CPTDinpDoc : : FreeNets ( ) 

for(int i = 1; i <= 24; i++) FreeNet(i); 



void CPTDinpDoc: :RunNets (long n) 

double Val, Vail, frac; 

Run first ega6 nets 
m_NetPosl = 0.0; 
m_NetNegl = 0.0; 
for(inti = 1; i <=8; i++) { 

// build inputs from record 

Val = ( (ni_ETHNIC_ORIGIN_WHITE == " 1 " ) ?1 . 0 : 0 . 0 ) ; 
Put Input ( i , 1 , S:Val) ; 

Val = ( (m_MARITAL_STATUS_LWP == "1 " ) ?1 . 0 : 0 . 0) ; 
Put Input (1,2, &Val ) ; 

Val = (double) atof (m_EGA_By_SONO) ; 
frac = Val - floor (Val); 
Val = floor (Val) + (frac / 0.7); 
Put Input ( i , 3 , &Val ) ; 

//Val = (double) atof (m_EGA_BY_BEST) ; 

Val = (double) atof (m_EGA_BY_LMP) ; 

frac = Val - floor (Val); 

Val = floor(Val) + (frac / 0.7); 

Vail = (double) atof (m_EGA_BY_SONO) ; 

frac = Vail - floor (Vail); 

Vail = floor. (Vail) + (frac / 0.7); 

if (Vail <= 13.0) { 

Val = Vail; 
} else { 

if(fabs{Val - Vail) > 2.0) { 

} else { 

Val = Vail; 



Put Input ( i , 4 , &:Val ) ; 

Val = (double) atof (m_EGA_AT_SAMPLING) ; 

frac = Val - floor (val) ; 

Val = floor(Val) + (frac / 0.7); 

Put Input ( i , 5 , &Val ) ; 

Val = 0.0; // CD INTERP 

if( m_DILITATION_LTl == "1" ) Val = 0.0; 
if( m_DILITATION_l == "1" ) Val = 1.0; 
if( m_DILITATI0N_l_2 == "1" ) Val = 1.5; 
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if< m_DILITATION_2 == "1" ) Val = 2.0; 
if( ni_DILITATION_2_3 == "1" ) Val = 2.0; 
if( m_DILITATI0N_3 == "1" ) Val = 3.0; 

if( m_DILITATI0N_GT3 == "1" ) Val = 3.0; 

Put Input (1,6, &Val ) ; 

Val = 0.0; // Parity-PreTerm 

if( m_2_C0MP_l == "1" ) Val = 1.0; 

if ( m_2_C0MP_2 == "1" ) Val = 2.0; 

if{ m_2_COMP_3 == "1" ) Val = 3.0; 

Put Input (i , 7 , &Val) ; 

Val = ( (m_VAGINAL_BLEEDING == '■ 1 " ) ? 1 • 0 : 0 . 0 ) ; 
Put Input ( i , 8 , &Val ) ; 

Val = 1.823197; // CERVICAL CONSISTANCY 
if ( m_CERVICAL_CONSISTANCY_FIRM == "1" ) Val = 
if ( m_CERVICAL_CONSISTAlJCY_MOD == "1" ) Val = 2 
if( m_CERVICAL_CONSISTANCY_SOFT == "1" ) Val = 
Put Input ( i , 9 , &Val ) ; 

Val = ( (m_l_COMP == "1" ) ?1 . 0 : 0. 0) ; 

Putlnput (i, -10, ScVal) ; 

Val = ( (m_FFN_RESULT == " 1 " ) ?1 . 0 : 0 . 0 ) ; 
Putlnput ( i , 11 - , ScVal) ; 

// iterate network 
IterateNet (i) ; 



// build consensus result 
m_NetPosl += GetState {i, 3, 1) / 8.0; 
m_NetNegl += GetState (i, 3, 2) / 8.0; 



m_NetVall =25. 0 * (m_NetPosl - m_NetNegl) 

// Run first egad7f nets 
tn_NetPos2 = 0.0; 
m_NetNeg2 = 0.0; 
for (i = 9; <=16; i++) 

// build inputs from record 

Val = ( (m_ETHNIC_ORIGIN_WHITE == " 1 " ) ?1- 0 : 0 . 0 ) ; 

Putlnput (i, 1, &Val) ; 

Val = ( {m_PATIENT_COiyiPLAINT_l == " 1 " ) ?1 . 0 : 0 . 0 ) ; 

Putlnput (i , 2 , &Val) ; 

Val = (double) atof (m_ABORTIONS) ; 

Putlnput (i , 3 , ScVal) ; 

Val = ( (m_VAGINAL_BLEEDIKrG == " 1" ) ?1 . 0 : 0 . 0) ; 
Putlnput (1,4, &Val) ; 
Val = 0.0; //UC_INTERP 

if ( m_PATIENT_CORPIiAINT_l_LTl == "1" ) Val = 1. 
if ( m_PATIENT_COMPLAINT_l_l_3 == "1" ) Val = 2. 
if( m_PATIENT_C0MPLAINT_l_4_6 == "1" ) Val = 3. 
if ( m_PATIENT_C0MPLAINT_l_7_9 == "1" ) Val = 4. 
if( m_PATIENT_COMPLAINT_l_10_12 == "1" ) Val = 
if{ m_PATIENT_C0MPLAINT_l_GT12 == "1" ) Val = 6 
Put Input ( i , 5 , &Val ) ; 

Val = ((m_0_COMP == "1") ?1. 0:0.0) ; 
Put Input (1,6, &Val ) ; 

Val = ( (m_FFN_RESULT == "1") ?1 ■ 0 : 0 .0) ; 
Putlnput (1,7, &Val ) ; 

/ / iterate network 
IterateNet (i) ; 



-55- 




24727-801 F 



// build consensus result 
m_NetPos2 += GetState (i , 3 , 1) 
m_NetNeg2 += GetState (i , 3 , 2) 



.0) ; 



} 

m_NetVall2 = 25.0 * (m_NetPos2-m_NetNeg2) ; 

// Run first egadl4f nets 
m_NetPos3 = 0.0; 
m_NetNeg3 = 0.0; 
for(i =17; i <=24; i++) { 

// build inputs from record 

Val = ( (m_ETHNIC_ORIGIN_NATIVE-AMERICAN == ' 
Put Input (i , 1 , &Val) ; 

Val = ( ( m_MARITAL_STATUS_LWP == " 1 " ) ? 1 . 0 : 0. 0 ) ; 
Put Input ( i , 2 , &Val) ; 

Val = ( (m_PATIENT_COMPLAINT_l == "1")? 
Put Input (1,3, &Val) ; 
Val = 0.0; //CD_INTERP 
if ( m_DILITATION_LTl = 
if ( m_DILITATION_l == 
if ( m_DILITATI0N_l_2 = 
if ( m DILITATI0N_2 == 



if( m_DILITATI0N_3 == 
if( m_DILITATI0N_GT3 : 
Putlnput ( i , 4 , &Val ) ; 
Val = 0.0; //UC INTERP 
if( m_PATIENT_COMPLAINT 
if{ m_PATIENT_COMPLAINT" 
if { m_PATIENT_COMPLAINT" 
if ( m_PATIENT_COMPLAINT" 
if ( m_PATIENT_COMPLAINT" 



1")?1.0:0.0) ; 





) Val 




0.0 


"1" ) 


Val = 


1 


0; 


== "1" 


) Val 




1.5 


"1" ) 


Val = 


2 


0; 


= "1" 


) Val 




2.0 


"1" ) 


Val = 


3 


0; 




) Val 




3.0 



Tl == "1" ) Val = 1.0; 
_3 == "1" ) Val = 2.0; 
_6 == "1" ) Val =3.0, 
_9 == "1" ) Val = 4.0; 
_10_12 == "1" ) Val 



if( m_PATIENT_C0MPLAINT_l_GT12 == "1" 
Put Input ( i , 5 , &Val ) ; 

Val = ( (m_0_COMP == "1" ) ?1 . 0 : 0 . 0) ; 
Put Input ( i , 6, &Val ) ; 

Val = ( (m_FFN_RESULT == " 1 " ) ? 1 . 0 : 0 . 0 ) ; 

Putlnput { i , 7 , &Val) ; 

// iterate network 
IterateNet (i) ; 



// build consensus result 
m_NetPos3 += GetState (i , 3 , 1) 
m_NetNeg3 += GetState (i, 3 , 2) 



) Val = 6.0; 



:_NetVal3 = 25.0 * (m_NetPos3 -m_NetNeg3 ) ; 



char* CPTDinpDoc: :time2str ( const CTimeS: tm ) 

sprintf (tstr, " %d/%d/%d" , tm.GetMonth ( ) ,tm.GetDay() , 
tm.GetYearO -190 0) ) ; 
return tstr; 

CTimefc CPTDinpDoc :: str2time ( CString& str ) 

int m,d,y; 
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int ofs; 

strcpy (tstr , str) ; 
tn = d = y = 0 ; 
ofs = 0; 

while (tstr [of s] == ' ' ) ofs++; // skip spaces; 
m = atoi (Ststr [of s] ) ; 

while (tstr [ofs] >= '0' && tstr [ofs] <= '9') ofs++; // skip number 

while (tstr [of s] == '/' || tstr [of s] == '/') ofs++; // skip delimiter 

d = atoi (&tstr [of s] ) ; 

while (tstr [of s] >= '0' && tstr [ofs] <= '9') ofs++; // skip number 
while (tstr [of s] == '/' ii tstr[ofs] == '-') ofs++; // skip delimiter 

y = atoi (S:tstr [of s] ) ; 
if (Y<100) y += 1900; 

tim = CTime (y,m,d, 0, 0, 0) ; 
return (tim) ; 



void CPTDinpDoc : : OnRecGoto ( ) 

CPtdGoto dig; 
int i; 

// Define and run a dialog to select the search mode and rec number 

etc. 

dlg.m_IDStr = IDStr; 
dlg.m_RecNura = CurRecord +1; 
dlg.m_GotoMode = GotoMode; 

if (dlg.DoModal 0 == IDOK) { 



GotoMode = dig . m_GotoMode ; 
switch (GotoMode) { 
case 0 : 

// record number 

CurRecord = dlg.m_RecNum - 1; 

if (CurRecord < 0) CurRecord = 0; 

if (CurRecord > NumRecords - I ) CurRecord = NumRecords - 

get_rec (Rec) ; 
break ; 
case 1 : 

// ID string 

IDStr = dlg.m_IDStr; 

for (i = 0; i < NumRecords; i++) { 

CurRecord = i; 

get rec (Rec) ; 

if ( IDStr == m LAB ID ) break; 
} ~ " 

break; 
default : 

//Do nothing 



} 



break ; 



} 



} 



} 



void CPTDinpDoc 



lOnFileMruFilel 0 
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1-5 



GetPrivateProfileString( "Recent File List", 
"Filel", 
"iintitled" , 
PathName , 
128, 

"ptdinp.ini") ; 

get_file() ; 

} 

void CPTDinpDoc: :0nFileMruFile2 {) 

GetPrivateProf ileString ("Recent File List" 
"File2", 
"untitled" 
PathName , 
128, 

"ptdinp.ini") ; 

get_file() ; 



void CPTDinpDoc: :0nFileMruFile3 () 

GetPrivateProf ileString ("Recent File List" 
"Files 
"untitled" , 
PathName , 
128, 

"ptdinp.ini") ; 



//IpszSection 
/ /IpszEntry 
// IpszDefault 
// IpszReturnBuf f er 
/ / cbRe turnBuf f er 

// IpszFilename 



//IpszSection 
//IpszEntry 
// IpszDefault 
// IpszReturnBuf fer 
// cbRetumBuf fer 

// IpszFilename 



/ /IpszSection 
//IpszEntry 
// IpszDefault 
// IpszReturnBuf fer 
// cbRetumBuf fer 

// IpszFilename 



get_file{) ; 



void CPTDinpDoc: :0nFileMruFile4 0 

GetPrivateProf ileString ("Recent File List 
"File4 " , 
"untitled" , 
PathName , 
128, 

"ptdinp . ini " ) ; 

get_file() ; 



void CPTDinpDoc: rOnFileOpenO 

//FILE *fp; 

// Get the File Name 
CFileDialog Dig (TRUE, "fdb" ,NULL,OFN_OVERWRITEPROMPT , 

"FD.B iles (*.fbd) ]*.fdb|i"); 
Dlg.m_ofn. IpstrTitle = "Open Fixed length DataBase file"; 
if( Dlg.DoModalO == IDOK ) { 

strcpy (PathName, Dig. GetPathName () ) ; 

AfxGetApp 0 ->AddToRecentFileList (PathName) ; 



//IpszSection 
//IpszEntry 
// IpszDefault 
// IpszReturnBuf fer 
// cbRetumBuf fer 

// IpszFilename 
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get_f ile 0 ; 

#ifdef NOT 

CurRecord = 0; 

fp = fopen{PathName, "rb") ; 

if(fp==NULL) { 

f p = f open ( PathName , " wb " ) ; 
if{fpt=NULL) { 

fwrite(Rec, sizeof (char), (REC_LENGTH+2L) , fp) ; 

f close (fp) ; 

NumRecords = 1 ; 
CurRecord = 0; 
InitializeRec ( ) ; 
put_rec (Rec) ; 
get_rec (Rec) ; 
} else { 

CurRecord = 0 ; 

if (fread (Rec, sizeof (char) , (REC_LENGTH+2 L) , fp) == (REC_LENGTH+ 



2 L) { 



} 

#endif 



get_rec (Rec) ; 
f seek (fp, OL, SEEK_END) ; 

NumRecords = ftell(fp) / (REC_LENGTH+2L) ; 
f close (fp) ; 



void CPTDinpDoc :: get -file () 

FILE *fp; 

CurRecord = 0; 

f p = f open ( PathName , " rb " ) 

if(fp==NULL) { 

fp = fopen{PathName, "wb") ; 
if(fp!=NULL) { 

fwrite (Rec, sizeof (char) , (REC_LENGTH+2L) , fp) ; 

f close (fp) ; 

} 

NumRecords = 1 ; 
CurRecord = 0; 
InitializeRec 0 ; 
put_rec(Rec) ; 
get_rec (Rec) ; 
} else { 

CurRecord = 0 ; 

if (f read (Rec, sizeof (char) , (REC LENGTH+2L) , f p) == (REC LENGTH+2L) ) 

{ 

get_rec (Rec) ; 
f seek (fp, OL, SEEK_END) ; 

NumRecords = ftell(fp) / (REC_LENGTH+2L) 
f close (fp) ; 
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{ (CPTDinpApp*) AfxGetAppO ) ->SaveMRU() ; 
} 



PTDinp.cpp : Defines the class behaviors for the application. 
// 

#include "stdafx.h" 
#include "PTDinp.h" 

#include "mainf rm.h" 
#include "PTDidoc.h" 
#include "PTDivw.h" 

#ifdef _DEBUG 
#undef THIS_PILE 

Static char BASED_CODE THIS_FILE [] = FILE ; 

#endif 

/////////////////////////////////////////////////////////////////////////// 
/////////////////////////////////////////////////////////////////////////// 
// CPTDinpApp 

BEGIN_MES SAGE_MAP ( CPTDinpApp , CWinApp ) 
// { {AFX_MSG_MAP (CPTDinpApp) 
ON_COMMAND ( ID_APP_ABOUT , OnAppAbout) 
ON_COMMAlJD (ID_CLR_SUBFIELDS, OnClrSubf ields) 
ON COMMAND (ID_EDIT_MODE, OnEditMode) 
//y}AFX_MSG_MAP 

// Standard file based document commands 
0N_COMMAND { ID_FILE_NEW, CWinApp : : OnFi leNew) 
ON_COMMAND { ID_FILE_OPEN, CWinApp : : OnFileOpen) 
// Standard print setup command 

ON_COMMAND ( ID_FILE_PRINT_SETUP , CWinApp : : OnFilePrintSetup) 
END_MESSAGE_MAP ( ) 

/////////////////////////////////////////////////////////////////////////// 
/////////////////////////////////////////////////////////////////////////// 
// CPTDinpApp construction 

CPTDinpApp : : CPTDinpApp ( ) 

// TODO: add construction code here, 

// Place all significant initialization in Initlnstance 
m_j5Doc = NULL; 
EditMode = FALSE; 

ClearSubf ields = FALSE; 

} 

/////////////////////////////////////////////////////////////////////////// 
/////////////////////////////////////////////////////////////////////////// 
// The one and only CPTDinpApp object 

CPTDinpApp NEAR theApp; 

/////////////////////////////////////////////////////////////////////////// 
/////////////////////////////////////////////////////////////////////////// 
// CPTDinpApp initialization 
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BOOL CPTDinpApp : : I nit Instance ( ) 
// Standard initialization 

// If you are not using these features and wish to reduce the size 
// of your final executable, you should remove from the following 
// the specific initialization routines you do not need. 

SetDialogBkColor ( ) ; // Set dialog background color to gray 

LoadStdProfileSettings 0 ; // Load standard INI file options 

(including MRU) 

// Register the application's document templates. Document templates 
// serve as the connection between documents, frame windows and 

views . 

CSingleDocTemplate* pDocTemplate ; 
pDocTemplate = new CSingleDocTemplate ( 

IDR_MAINFRAME, 

RUNTIME_CLASS(CPTDinpDoc) , 

RUNTIME_CLASS (CMainFrame) , // main SDI frame window 
RUNTIME_CLASS (CPTDinpView) ) ; 
AddDocTemplate (pDocTeti:5>late) ; 

// create a new (empty) document 
OnFileNewO ,- 

if (m_lpCmdLine [0] != '\0') 

// TODO: add command line processing here 

} 

ClearSubfields = TRUE; 
// check the menu item 

CMenu* pMenu = Af xGetAppO ->m_jjMainWnd->GetMenu () 
pMenu- >CheckMenuItem . ( 1D_CLR_SUB FIELDS , MF_CHECKED) 

return TRUE; 

} 

/////////////////////////////////////////////////////////////////////////// 
/////////////////////////////////////////////////////////////////////////// 
// CAboutDlg dialog used for App About 

class CAboutDlg : public CDialog 
{ 

public : 

CaboutDlg ( ) ; 

// Dialog Data 

// [ (AFX_DATA( CAboutDlg) 
enum { IDD = IDD_ABOXJTBOX } 
//}}AFX_DATA 

// Implementation 
protected: 

virtual void DoDataExchange (CDataExchange* pDX) ; //DDX/DDV support 
// { {AFX_MSG (CAboutDlg) 

// No message handlers 
//} }afx_msg 

DECLARE MESSAGE MAP () 

}; 
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CAboutDlg : : CaboutDlg ( ) : CDialog (CAboutDlg : : IDD) 

//{ {AFX_DATA_INIT (CAboutDlg) 
// } } AFX_DATA_INIT 

void CAboutDlg: :DoDataExchange (CDataExchange* pDX) 
{ 

CDialog: tDoDataExchange (pDX) ; 
// { (AFX_DATA_MAP (CAboutDlg) 
/ / { { AFX_DATA_MAP 

BEGIN_MESSAGE_MAP (CAboutDlg, CDialog) 

// { {AFX_MSG_MAP (CAboutDlg) 

// No message handlers 

//}}AFX_MSG_MAP 
END_MESSAGE_MAP ( ) 

/ / App command to run the dialog 
void CPTDinpApp : : OnAppAbout ( ) 

CAboutDlg aboutDlg; 

aboutDlg .DoModal () ; 

} 

/////////////////////////////////////////////////////////////////////////// 
/////////////////////////////////////////////////////////////////////////// 
//CPTDinpApp commands 

void CPTDinpApp : :OnClrSubfields ( ) 

if (ClearSubfields) = FALSE; 

/ / uncheck the menu item 

CMenu* pMenu = AfxGetApp ( ) >m_pMainWnd- >GetMenu ( ) ; 
pMenu->CheckMenuItem (ID_CLR_SUBFIELDS, MF_UNCHECKED) ; 



} else 



ClearSubfields = TRUE; 
// check the menu item 

CMenu* pMenu = Af xGetApp ( ) - >m_j3MainWnd- >GetMenu ( ) ; 
pMenu- >CheckMenuI tem ( ID_CLR_SUBFIELDS , MF_CHECKED) ; 



} 

void CPTDinpApp : : OnEditMode ( ) 
^ if (Edit Mode) { 



EditMode = FALSE; 

// uncheck the menu item 

CMenu* pMenu = AfxGetAppo ( ) >m_jpMainWnd->GetMenu ( ); 
pMenu- >CheckMenuItem ( rD_EDIT_MODE , MF_UNCHECiCED) ; 
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// check the menu item 

CMenu* pMenu = AfxGetApp ( ) ->m_pMainWnd->GetMenu ( ) ; 
pMenu- >CheckMenuitem ( ID_EDIT_MODE , MF_CHECKED) ; 



} 

void CPTDinpApp: :SaveMRU ( ) 

SaveStdProf ileSettings ( ) ; 

} 

; endoinp.def : Declares the module parameters for the application. 
NAME ENDOINP 

DESCRIPTION 'lENDOINP Windows Application' 
EXETYPE WINDOWS 

CODE PRELOAD MOVEABLE DISCARDABLE 

DATA PRELOAD MOVEABLE MULTIPLE 

HEAPSIZE 1024 ; initial heap size 

; Stack size is passed as argument to linker's /STACK option 

// PTDinp.h : main header file for the PTDINP application 
// 

#ifndef ^AFXWIN_H_ 

terror include 'stdafx.h' before including this file for PCH 

#endif 

#include "resource. h" // main symbols 

/////////////////////////////////////////////////////////////////////////// 
/////////////////////////////////////////////////////////////////////////// 
// CPTDinpApp: 

// See PTDinp.cpp for the implementation of this class 
// 

#include " PTDidoc . h" 

class CPTDinpApp : public CWinApp 

pviblic: 

CPTDinpApp ( ) ; 

CPTDinpDoc *m_j)Doc ; 

int NextDlgPage ; 
int LastDlgPage; 
BOOL EditMode; 
BOOL ClearSufafields; 

CPTDinpDoc *G€tDoco ( ) { 
return m_j>Doc; 

void SaveMRU( void ) ; 

// Overrides 

virtual BOOL Initlnstance ( ) ; 



// Implementation 
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// { {AFX_MSG (CPTDinpApp) 
afx_msg void OnAppAbout { ) ; 
afx_msg void OnClrSubf ields ( ) ; 
afx msg void OnEditMode ( ) ; 
//ITAFX_MSG 
DECLARE_MESSAGE_MAP ( ) 

I II I II I II III II II I III III III III III II I II II I II I II I III II I lllll til II I II III II It 
llllllllllllllllllllllllltlllllllllllllllllllllllllllllllllllllllllllllllll 

II PTDivw.cpp : implementation of the CPTDinpView class 

iinclude "stdafx.h" 
#include "PTDinp.h" 

#include "PTDidoc . h" 
iinclude "PTDivw.h" 

#include "PTDdlgl.h" 

#ifdef _DEBUG 
#undef THIS_FILE 

static char BASED_CODE THIS_FILE [ ] = FILE ; 

#endif 

lllllllllllllllllllllllllllllltllllllllllllllllllllllllllllllllllllllllllll 
lllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll 
// CPTDinpView 

IMPIjEMENT_DYNCREATE (CPTDinpView , Cview) 

BEGIN_MESSAGE_MAP (CPTDinpView, CView) 
//{ {AFX_MSG_MAP (CPTDinpView) 
ON COMMAND (ID_DATA_EDIT, OnDataEdit) 
ON COMMAND (ID_DATA_NEW, OnDataNew) 
// } }AFX_MSG_MAP 
// Standard printing commands 

ON COMMAND (ID_FILE_PRINT, CView: :OnFilePrint) 

ON COMMAND (ID_FILE_PRINT_PREVIEW, CView: :OnFilePrintPreview) 
END_MESSAGE__MAP ( ) 

lllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll 
lllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll 
II CPTDinpView construction/destruction 

CPTDinpView: : CPTDinpView ( ) 
I 

// TODO: add construction code here 
ShowPrt = FALSE ; 

} 

CPTDinpView: : -CPTDinpView ( ) 

] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
lllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll 
II CPTDinpView drawing 

void Checkout (CDC* pDC, char *str, int xpos, int ypos, int val) 
pDC->TextOut ( xpos, ypos, str, strlen(str) 
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pDC ->Rectangle (CRect ( xpos - 6*29, ypos - 2*29, xpos - 2*29, 
ypos - 6*29) ) ; 
if (val) { 

CBrush brush (RGB (0,0,0)); 

pDC->FillRect (Greet { xpos - 6*29, ypos - 2*29, xpos - 
2*29, ypos 6*29) , &brush) 

// pDC->MoveTo (xpos - 6*29, ypos - 2*29); 
// pDC->LineTo( xpos - 2*29, ypos - 6*29); 
// pDC->MoveTo(xpos - 6*29, ypos - 6*29); 
// pDC->LineTo( xpos - 2*29, ypos -2*29); 

void CPTDinpView: :OnDraw{CDC* pDC) 

CPTDinpDoc* pDoc = GetDocument ( ) ; 
CPTDinpApp* pApp = ( (CPTDinpApp*) AfxGetApp ( ); 

ASSERT_VALID(pDoc) ; 
CFont fontlO, fontl2; 
TEXTMETRIC tm; 
int nHeight ; 
int i; 

// TODO: add draw code for native data here 
pDC- >SetMapMode (MM_TWIPS) ; 

fontl2 .CreateFont (-240, 0, 0, 0, 500, FALSE, FALSE, 0, ANSI-CHARSET, 
OUT_DEFAULT_PRECIS , CLIP_DEFAULT_PRECIS , 

DEFAULT_QUAZITY, DEFAULT_PITCH j FF_ROMAN, "Times New Roman"); 
CFont* pOldFont = (CFont*) pDC->SelectOb~ect (&fontl2) ; 

pDC->GetTextMetrics (&tm) ; 

nHeight = tm.tmHeight + tm. tmExternalLeading; 

char str[2561; 
char name [64] ; 

//pDC- >Rectangle (CRect (0, 0, 11505, -15105)); // FULL PAGE RECT 

if (ShowPrt) { 

if ( !pApp->EditMode) { 

sprintf (str, " ADEZA DIAGNOSTIC SERVICES"); 

pDC->TextOut ( 2440, ((-1 * nHeight) - 720), str, strlen(str) ) ; 

sprintf (str, "Pre-Term Delivery Risk Assessment Software:"); 
PDC->TextOut ( 2440, ((-2 * nHeight) - 720), str, strlen(str) ); 

sprintf (str, " Test Report Form "); 

pDC->TextOut ( 2440, ((-3 * nHeight) - 720), str, strlen(str) ) ; 



} else { 

sprintf (str, "File: %s " , pDoc->PathName) ; 

pDC->TextOut ( 720, ((-1 * nHeight) - 720), str, strlen(str) 

) ; 

sprintf (str, "Current record: %ld if, pDoc->CurRecord-i-l) ; 

pDC->TextOut ( 720, ((-2 * nHeight) - 720), str, strlen(str) ); 

sprintf (str, "Number of records: %ld "pDoc->NumRecords) ; 
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pDC->TextOut ( 720, ((-3 * nHeight) - 720), str, strlen(str) ) ; 

if((ShowPrt && !pApp->EditMode) | | (IShowPrt)) { 
sprintf (str, " Lab ID #:"); 

pDC->TextOut ( 720, ((-5 * nHeight) - 720), str, strlen(str) ); 
sprintf (str, " %s " , PDoc->m_LAB_ID) ; 

pDC->TextOut ( 4320, {(-5 * nHeightT - 720), str, strlerL(str) ); 

strcpy( name, pDoc->m_NAME_F) ; 
strcat ( name, " "); 
strcat( name, pDoc- >m_NAME_MI) ; 
strcat ( name, " ") ; 
strcat ( name, pDcc->m_NAME_L) ; 
sprintf (str, " " Patient Name: ") ; 

pDC->TextOut ( 720, ((-6 * nHeight) - 720), str, strlen(str) 

) ; 

sprintf (str, " %s ",name); 

pDC->TextOut ( 4320, ((-6 * nHeight) - 720), str, 

strlen (str) ) ; 

pDoc->RunNets (pDoc->CurRecord) ; 

sprintf (str, " Pre-term Delivery Risk <34.6wks: ") ; 

pDC->TextOut { 720, H-7 * nHeight) - 720), str, strlen(str) ); 
sprintf (str, " %lf " ,pDoc->m NetPosl) / 

pDC->TextOut ( 4320, ({-7 * nileight) - 720), str, strlen(str) ); 

sprintf (str, " Pre-term Delivery Risk <7 days: "); 

pDC->TextOut ( 720, ((-8 * nHeight) - 720), str, 
strlen (str) ) ; 

sprintf (str, " %lf ",pDoc->m - NetPos2) ; 

pDC->TextOut ( 4320, ((-8 * nHeight) - 720), str, 
strlen (str) ) ; 

sprintf (str, " Pre-term Delivery Risk <14 days: "); 

pDC->TextOut ( 720, ((-9 * nHeight) - 720), str, 
strlen (str) ) ; 

sprintf (str, " %lf ",pDoc->m - NetPosS) ; 

pDC->TextOut ( 4320, ((-9 * nHeight) 720), str, 
strlen (str) ) ,- 

//if(pDoc->m - ACOG_S"XNPTOMS == "0") { 

// sprintf (str, "DISCLAIMER APPLIES :") ; 

// pDC->TextOut ( 720, ((-12 * nHeight) - 720), str, strlen(str) 

) ; 

//} 

for( i = 5; i <= 10; i++) { 

pDC->MoveTo (700, ( (-i nHeight) 720)); 

pDC->LineTo(8640, ( (-i nHeight) 720)); 

pDC->MoveTo(700, {(-5 nHeight) - 720)); 

pDC->LineTo(700, ({-10 nHeight) _ 720)); 

pDC->MoveTo(4320, ( (-5 nHeight) 720)); 

pDC->LineTo (4320, ((10 * nHeight) - 720) 
pDC->MoveTo(864 0, ( (-5 nHeight) 720)); 

pDC->LineTo(8640, ( (-10 * nHeight) - 720)); 
} else { 
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fontlO.CreateFont{ -200, 0,0, 0,500, FALSE, FALSE, 0, ANSI_CHARSET , 
OUT DEFAULT PRECIS, CLIP DEFAULT PRECIS, 

DEFAULT QUALITY, DEFAULT_PITCH I-FF_ROMAN, "Times New Roman") ; 
pDC->SelectObject (&fontlO) ; 

//pDC->Rectangle (CRect ( 0,0,11505, -15105) ) ; 
pDC->Rectangle (CRect ( 1*29, -4*29, 397*29, -22*29) ) ; 
pDC->Rect angle (CRect ( 1*29, -24*29,397*29, -42*29) ) ; 
pDC->Rect angle (CRect ( 1*29, -44*29, 187*29, -95*29) ) ; 
pDC->RectangIe (CRect ( 187*29, -44*29,397*29, -95*29) ) ; 
pDC->Rectangle (CRect ( 1*29, -97*29,397*29, -114*29) ) ; 
pDC->Rec tangle (CRect ( 1*29, -115*29, 397*29, -218*29) ) ; 
pDC- >Rectangle (CRect { 1*29, -220*29, 397*29, -240*29) ) ; 
pDC->Rectangle (CRect ( 1*29, -242*29, 187*29, -348*29) ) ; 
pDC->Rectangle (CRect ( 187*29, -242*29, 397*29, -348*29) ) ; 
pDC->Rectangle (CRect ( 1*29, -350*29, 397*29, -375*29) ) ; 
pDC->Rectangle (CRect ( 1*29, -377*29,397*29, -404*29) ) ; 
pDC->Rectangle (CRect ( 1*29, -406*29, 397*29, -425*29) ) ; 
pDC->Rectangle (CRect ( 1*29, -427*29, 397*29, -470*29) ) ; 
sprintf (str, "ADEZA Pre-Term Delivery Risk Assessment ") ; 
pDC->Textout ( 7*29f-10*29, str, strlen(str) ) ; 
sprintf (str, "Lab ID #: %s", pDoc->m - LAB_ID) ; 
pDC->TextOut { 267*29,-10*29, str, strlen(str) ) ; 
sprintf (St . r, "PATIENT INFORMATION" ) ; 
pDC->TextOut ( 159*29,-29*29, str, strlen(str) ) ; 
strcpy( name, pDoc->m_NAME_L) ; 
sprintf (str, "Name (las' E) %s", name) ; 
pDC->TextOut ( 7*29,-51*29, str, stzlen(str) ) ; 
strcpy( name, pDoc->m NAME F) ; 
sprintf (stx, "First %s, name) ; 

PDC->TextOut ( 99*29,-51*29, str, strlen(str) ); 
strcpy( name, pDoc->m_NAME_MI) ; 
sprintf (str, "M %s", name) ; 

pDC->TextOut ( 160*29,-51*29, str, strlen(str) ) ; 
sprintf (str, "DOB %s", pDoc->m_DATE_OF_BIRTH) ,■ 
pDC - >TextOut ( 7*29,-69*29, Str, strlen(str) ) ; 
sprintf (str, "Ethnic origin: ") ; 

pDC->TextOut ( 192*29,-48*29, str, strlen(str) ); 

Checkout (pDC, "Caucasian", 248*29,-48*29, (pDoc->m_ETHNIC_ORIGIN_WHITE = = 

"1") ) ; 

Checkout (pDC, "African American", 298*29, -48*29, 
(pDoc - >m_ETHNIC_ORIGIN_BLACK == 
"1") ) ; 

Checkout (pDC, "Asian", 368*29,-48*29, (pDoc->m_ETHNIC_ORIGIN_ASIAN = ="1") 
Checkout (pDC, "Hispanic", 248*29,-59*29, (pDoc- >m_ETHNIC_ORIGIN_HISPANIC = 
= "1-) 
) ; 

Checkout (pDC, "Native American" , 298*29,-59*29, 

(pDoc - >m_ETHNlC_ORIGIN_NATIVE_AME 
RICAN = ="1") ) ; 

Checkout (pDC, "Other", 368*29,-59*29, (pDoc- >m_ETHNIC-ORIGIN-OTHER 
sprintf (str, "Marital status:") ; 

pDC->TextOut ( 192*29,-72*29, str, strlen(str) ) ; 

Checkout (pDC, "Married", 248*29,-72*29, {pDoc->m MARITAL STATUS MARRIED = 
= "1") _ _ _ 

Checkout (pDC, "Single", 288*29,-72*29, (pDoc->m - MARITAL_STATUS_S INGLE 
Checkout (pDC, "Divorced/Separated" , 322*29, -72*f 9, 
(pDoc - - >m_MARITAL_STATUS_DIVORC 
ED = ="1") ) ; 
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Checkout (pDC, "Widowed", 248*29,-83*29, {pDoc->m_MARITAL_STATUS_WIDOWED = = 
"1") ) 

Checkout (PDC, "Living with partner" , 293*29,-83*29, 
(pDoc - >m_MARITAL_STATUS_LWP= 
= "1") ) ; 

Checkout (pDC, "Other", 368*29,-83*29, (pDoc->m_MARITAL_STATUS_OTHER = = 
"1") ; 

sprintf (str, "PATIENT HISTORY AMD CLINICAL INFORMATION"); 
pDC->TextOut ( 117*29,-102*29, str, strlen(str) ) ; 

sprintf (str, "At the time of sampling was the patient experiencing signs and 
symp 

toms of possible preterm labor?"); 
pDC->TextOut ( 7*29,-119*29, str, strlen(str) ); 

Checkout (pDC, "Yes", 339*29, -119*29, (pDoc->m_ACOG_SYMPTOMS = = "1") ); 
Checkout (pDC, "No" , 370*29,-119*29, (pDoc->m_ACOG _SYMPTOMS = = "0") 
sprintf (str, "It yes, please mark all that apply. "); 
pDC->TextOut ( 7*29,-134*29, Str, strlen(str) ); 

Checkout (pDC, "Uterine contractions with or without pain", 19*29,-145*29, 
{pDoc-> 

m_PATIENT_COMPLAINT_l = = "1") ); 
sprintf (str, "Number/hr") ; 

PDC->TextOut ( 22*29,-158*29, str, strlen(str) ); 

Checkout (pDC, "<1", 73*29,-158*29, (pDoc->m_PATIENT_COMPLAINT_l_LTl = = 
"1") ); 

Checkout (pDC, 111-3" , 105*29,-158*29, (pDoc- >m_PATIENT_COMPLAINT 113== 
"1") ); 

Checkout (pDC, "4-6' 1, 137*29,-158*29, (pDoc->m_PATIENT_COMPLAINT 1_4 6 = = 
"1") ); 

Checkout (pDC, "7-911, 73*29, -170*29, (pDoc->m PATIENT COMPLAINT 17 9== 
"1") ) ; 

Checkout (pDC, "10-12", 105*29,-170*29, (pDoc7>m_PATIENT_COMPLAINT_l_10_12 = 
= "1") 

Checkout (pDC, ">12", 137*29,-170*29, (pDoc->m_PATIENT_COMPLAINT_l GT12 = = 
"1") ; 

Checkout (pDC, "Vaginal bleeding", 19*29, -181*f 9, (pDo-c - 
>m VAGINAL BLEEDING = = "1" 
) T; 

Checkout (pDC, "Trace" , 29*29, -194*29, (pDoG->m VAGINAL BLEEDING TRACE = 

= "1") ) ; 

Checkout (pDC, "Med" , 64*29,-194*29, (pDoc->m_VAGINAL_BEEEDING MEDIUM = = 
"1") ); 

Checkout (pDC, "Gross", 94*29, -194*29, (pDoc->m VAGINAL BLEEDING 

GROSS 

= = "1") ) ; 

Checkout (PDC, "Patient is not ""feeling right"7111, 19*2-9,-205*29-, 

(pDoc - >m_PATIBNT 
COMPLAINT_S = = - " 1 " ) ) ; 

Checkout (pDC, "Bleeding during the second or third trimester", 
167*29,-143*29, (p 
Doc->m-PATIENT_C0MPLAINT_3 = = "1") ); 

Checkout (pDC, "Intermittent lower alsdorainal pain, dull, low backpain, 

pelvic pres 

sure", 167*29,-157*29, (pDoc->m_PATIENT_COMPLAINT_2 = = "1") ) ; 

Checkout (pDC, "Change in vaginal discharge_amount , color, or consistency", 

167 

*29, -181*29, (pDoc->m_PATIENT_COMPLAINT 5= ="1") ); 
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Chec kOut (pDC, TMenstrual- like crimping (with or without diarrhea)", 
167*29, -193*2 

9, (pDoc->tn_PATIENT_COMPLAINT_4 = = "1") ); 

sprintf (str, "Gestational Age: EGA by first trimester sono %s ", 
pDoc- >m_EGA_BY_S 
ONO) ; 

PDC->TextOut { 7*29,-225*29, str, strlen(str) ) ; 

sprintf (str, "EGA by LMP %s", pDoc->m_EGA_BY_LMP) ; 

pDC- >TextOut ( 197*29,-225*29, str, strlen(str) ); 

sprintf (str, "EGA at sampling %s" ,pDoc->m_EGA_AT_SAMPLING) ; 

pDC->TextOut( 287*29,-225*29, str, strlen(str ) ) ; 

sprintf (str, "Previous Pregnancy: Please mark all that apply."); 

pDC->TextOut ( 7*29,-249*29, Str, strlen(str) ) ; 

Checkout (pDC, "Previous pregnancy, no complications", 19*29,-260*29, 
(pDoc->m_l_COMP = ="1") ) ) ; 

Checkout (pDC, "History of Preterm delivery", 19*29, -272*29, 
{pDoc->m_2_C0MP = = "1") ); 
sprintf (st .r, "if Yes, how many?"); 

PDC- >TextOut ( 22*29,-284*29, str, stzlen(str) ); 

Checkout (pDC, 111" , 97*29,-284*29, (pDoc->m_2_COMP_l = = "1',) 

Checkout (pDC, "2", 122*29,-284*29, (pDoc->m_2_COMP_2 == "1") 

Checkout (pDC, ">2 11, 147*29,-284*29, (pDoc->m_2_COMP_3 = = "1") ); 

Checkout (pDC, "History of Preterm PROM" 19*29, - 269*29, (pDoc->m 3 COMP = = 

"1") ); 

Checkout (pDC , "History of incompetent cervix", 19*29,-308*29, 
{pDoc->m_4_C0MP = = "1") ); 

Checkout (pDC, "History of PIH/preeclampsia" , 19*29,-320*29, (pDoc->m 5 COMP 
= = "1" ) ) ; 

Checkout (pDC, "History of SAB prior to 20 wks", 19*29,-332*29, 
(pDoc->m_6_C0MP = = "1") ); 

Checkout (pDC, "Multiple Gestation: " , 209*29,-272*29, 
(pDoc->m_MULTIPLE_GESTATION == "1")); 

Checkout (pDC, "Twins", 284*29,-272*29, (pDoc->m_MULTIPLE GESTATION TWTNS == 

"1") ); 

Checkout (pDC, "Triplets", 317*29,-272*29, (pDoc - >m_MULTI 
PLE_GESTATION_TRIPLETS = = "1") ) ; 

Checkout (pDC, "Quads", 356*29,-272*29, {pDoc->m MULTIPLE GESTATION QUADS = 

= "1") ) ; 

Checkout (pDC, "Uterine or cervical abnormality", 209*29,-284*29, 
pDoc->m_UTCERV_ABNORMALITY = - "1") ); 

Checkout (pDC, "Cerclage" , 209*29,-296*29, (pDoc->m_CERVICAL_CERCLAGE == "1") 
); Checkout (pDC, "Gestational Diabetes" . 209*29, -308*-f 9, (pDo 
c7>m_GESTATIONAL_DIABETES = = "1")); 

Checkout (pDC, "Hypertensive Disorders". 209*29,-320*29, 
(pDoc->m_HYPERTENSIVE_DISORDERS = ="1") ); 

sprint f (s tr, "Cervical Status immediately following sample 
collection: " ) ; 

pDC- >TextOut ( 7*29,-352*29, str, stzlen(str) ); 
sprintf (str, "Dilatation (cm) ") ; 

PDC->TextOut ( 9*29,-364*29, str, strlen(str) Checkout (pDC, "<1" , 
64*29,-364*29, (pDoc- >m_DILITATION_LTl = = "1") 

Checkout (pDC, ' 11" , 85*29,-364*29, (pDoc->m_DILITATION_l = = "1") ); 
Checkout (pDC, "1-2", 102*29,-364*29, (pDocl->m_DILITATION_l_2 = = "1") 
Checkout (pDC, 1121', 123*29, -364*29, (pDoc->m_DILATION_2= = "1") ) ; 
Checkout (pDC, "2-3", 140*29 , -364*29f (pDoc-m_DILITATION_2_3 == "1") ); 
Checkout (pDC, '13", 163*29,-364*29, (pDoc->m_DILATION_3= = "1") ); 
Checkout (pDC, ">3'1, 180*29,-364*29, (pDoc->m,_DILATION_GT3 = = "1") ); 
Checkout (pDC, "Unknown", 201*29,-364*29, (pDoc->m DILITATION UNKNOWN = = 
"1") ); _ _ 

sprintf (str, "Cervical consistancy" ) ; 
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pDC- >TextOut ( 249*29,-364*29, str, strlen(str) ) ; 

Checkout (pDC, "Firm", 324*29,-364*29, {pDoc->m CERVICAL CONSISTi^STCY FIRM = 
= "1") ) ; 

Checkout {pDC, "Mod", 350*29,-364*29, {pDoc->m_CERVICAL_CONSISTANCY_MOD = = 

"1") ); 

Checkout (pDC, "Soft", 376*29,-364*29, (pDoc->m_CERVICAL_CONSISTANCY SOFT = 
= "1" ) ); 

sprintf (str, "Medications at Time of Test (check all that apply)"); 
pDC->TextOut ( 7*29,-380*29, str, strlen{str) ) ; 

Checkout (pDC, "Antibiotics", 23*29,-392*29, (pDoc->m_ANTIBIOTICS = = "1") 

) ; 

Checkout (pDC, "Corticosteroids", 76*29,-392*29, (pDoc->m CORTICOSTEROIDS = = 
"1") ); 

Checkout (pDC, "Tocolytis", 144*29, -392*29, (pDoc->m_TOYOIiYTICS = = "1" ) ; 
Checkout (pDC, "Insulin", 193*29,-392*29, (pDoc->m_INSULIN = = "1") ) ; 
Chec kOut (pDC, "Antihypertensives ", 234*29,-392*29, 
(pDoc->m_ANTIHYPERTENSIVES = = "1") ) ; 

Checkout (pDC, "None", 311*29,-392*29, (pDoc->m_MEDICATIONS_NONE == "1") ) ; 
Checkout (pDC, "Unknown", 348*29 ., -392*29, (pDoC -7 >m MEDICATIZ5NS -UNKNOWN 
sprintf (str, "Current Pregnancy: G: %s", pDoc->m_GRAVITY) ,- 
pDC->TextOut ( 195*29,-249*29, str, strlen(str) ); 
sprintf (stz, "P: %s", pDoc->m_PARITY) ; 
pDC- >Textout ( 303*29f-249*29, str, strlen(str) ) ; 
sprintf (str, "A: %s", pDoc->m_ABORTIONS) ; 
pDC->Textout ( 343*29,-249*29, str, strlen(str) ); 
sprintf (str, "Qualitative fFN Elisa Test Results:"); 
PDC- >TextOut ( 7*29,-411*29, str, strlen(str) ); 

Checkout (pDC, "Positive", 144*29,-411*29, (pDoc->m_FFN_RESULT = = "1") ); 

Checkout (pDC, "Negative", 234*29,-411*29, (pDoc->m FFN_RESULT = ="0") ); 

sprintf (str, "Pre-term Delivery Risk <34.6wks: "); 
pDC->TextOut ( 7*29,-432*29, str, strlen(str) ); 
sprintf (st .r, " %If ",pDoc->m - NetPosl) ; 
pDC->TextOut ( 150*29,-432*29, str, strlen(str) ); 
sprintf (str, "Pre-term Delivery Risk <7 days: ") ; 
pDC->TextOut ( 7*29, -444*29, str, strlen(str) ); 
sprintf (str, " %If ",pDoc->m - NetPos2) ; 
PDC->TextOut ( 150*29, -444*29, str, strlen(str) ); 
sprintf (str, "Pre-term Delivery Risk <14 days: "); 
pDC->TextOut ( 7*29, -456*29, str, strlen(str) ); 
sprintf (str, " %If " ,pDoc->m NetPosS) ; 
pDC->TextOut ( 150*29, -456*29, str, strlen(str) ); 

//if (pDoc->m ACOG_SYNPTOMS = = "0") { 

// sprintf (str, "DISCLAINER APPLIES : ") ; 

// pDC->TextOut ( 7*29, -480*29, str, strlen(str) ); 

//} 

} 

pDC->SelectObject (pOldFont) ; 
} 

/////////////////////////////////////////////////////////////////////////// 
/////////////////////////////////////////////////////////////////////////// 
// CPTDinpView printing 

BOOL CPTDinpView: :OnPreparePrinting(CPrintlnfo* pinfo) 

/ / default preparation 

return DoPreparePrinting (pinf o) ; 
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IP 



} 

void CPTDinpView: tOnBeginPrinting (CDC* /*pDC*/, CPrintlnfo* /*pInfo*/) 

// TODO: add extra initialization before printing 
ShowPrt = TRUE; 

} 

void CPTDinpView: :OnEndPrinting{CDC* /*pDC*/, CPrintlnfo* /*pInfo*/) 

// TODO: add cleanup after printing 
ShowPrt = FALSE; 

GetDocument ( ) ->UpdateAllViews (NULL) ; 

/////////////////////////////////////////////////////////////////////////// 
/////////////////////////////////////////////////////////////////////////// 
//CPTDinpView diagnostics 

Q #ifdefJDEBUG 

Q void CPfDinpView: :AssertValid ( ) const 

CView: lAssertValid ( ) ; 

W } 

l,y I void CPTDinpView: : Dump (CDumpContextS dc) const 

i,n { 

CView: :Dump(dc) ; 

CPTDinpDoc* CPTDinpView: : GetDocument ( ) // non-debug version is inline 

ASSERT (m_pDocument->IsKindOf (RUNTIME_CLASS (CPTDinpDoc) ) ) ; 
^ return ( CPTDinpDoc * ) m_pDocument ; 

#endif //_DEBUG 

/////////////////////////////////////////////////////////////////////////// 
/////////////////////////////////////////////////////////////////////////// 
// CPTDinpView message handlers 

void CPTDinpView: : Edit ( ) 

CPTDInp dig; 
int val; 

{ (CPTDinpApp*) AfxGetApp ( ) ) ->NextDlgPage = 1; 
m_j)Set = GetDocument ( ) ; 

// initialize all the variables in the record to allow smooth cancel 
///dlg.m - DATE_OF_DATA_ENTRY = m_P_Set->m_DATE_OF_DATA-ENTRY; 
//dlg.M_PATIENT_AGE = M_pSet->m_PATIENT-AGE; 
//CString m. ._DATE_OF_BIRTH; 

dlg.m_DATE_OF_BIRTH = m,_jpSet->m_DATE_OF_BIRTH; 
//CString m_NAME_F; 

dlg.m_NAME_F = m_pSet - >m_NAME_F; 

//CString m_NAME_L; 

//dlg.m_NAME_L = m_j)Set ->m_NAME_L; 
//CString m_NAME_MI ; 

dlg.m_NAME_RI = MjpSet- >m_NAME_MI ; 
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//BOOL m_l_COMP; 

//dlg.m_l COMP = (in_j)Set->m_l_COMP = = "1"); 

//BOOL m_2_COMP; 

//dlg.m_2 COMP = (m_pSet->m_2_C0MP = = "1") ; 

//BOOL m_3_C0MP; 

//dlg.m_3 COMP = (m_pSet->m_3_COMP = = "1"); 
//BOOL m_4_C0MP; 

//dlg.m_4 COMP = {mj)Set->m_4_C0MP = = "1") ; 
//BOOL m_5_C0MP; 

//dlg.m_5 COMP = (m_pSet->m_5_C0MP = = "1"); 
/ /BOOL m_6_C0MP ; 

//dlg.m_6 COMP = (m_jpSet- >m_6_COMP = = "1"); 
//BOOL m_ACOG_N; 

//dlg.m_ACOG_N = (m_pSet- >m_ACOG_SYNPTOMS = = "0") ; 
//BOOL m_ACOG_Y; 

//dlg.m_ACOG_Y = (m_pSet->m_ACOG_SYNPTOMS = = "1") ; 
//BOOL m_ANTIBIOTICS == 

//dlg.m_ANTIBIOTICS = (m_pSet->m_ANTIBIOTICS = = "1"); 

//BOOL m_AntiHyper; 

//dlg.m_AntiHYper = (m_pSet->m_ANTIHYPERTENSIVES = = "1") ; 
//BOOL m_CervCerclage ; 

//dlg.m_CervCerclage = (m_j)Set->m_CERVICAL_CERCLAGE = = "1"); 
//BOOL m_CervFinn; 

//dlg.m_CervFirm = (m_pSet->m_CERVICAL_CONSISTANCY_FIRM = = "1") ; 
//BOOL m_CervMod; 

//dlg.m_CervMod = (m_pSet->m_CERVICAL_CONSISTANCY_MOD = = "1"); 
//BOOL m_CervSoft; 

//dlg.in_CervSoft = (m_pSet->m_CERVICAL_CONSISTANCY_SOFT = = "1") ; 
//BOOL in_Corticosteroids ; 

//dlg.m_Corticosteroids = (m_jpSet->m_CORTICOSTERIODS= = "1") ; 
//BOOL m_Dilitation 1_2; 

//dlg.m_Dilitation = (m_jpSet - >m_DILATION_l_2 = = "1") ; 
//BOOL m_Dilitation2; 

//dlg.m_Dilitation2 = (m_pSet->m_DILATI0N_2 = = "1"); 
//BOOL m_Dilitation2_3 ; 

//dlg.ra_Dilitation2_3 = (m_j)Set->m_DILATION_2_3 = = "1"); 
//BOOL m_Dilitation3 ; 

//dlg.m_Dilitation3 = (m_pSet->m_DILATI0N_3 = = "1") ; 
//BOOL m_DilitationGt3 ; 

//dlg.m_DilitationGt3 = (m_pSet->m_DILATION_GT3 = = "1"); 
//BOOL m_Dilitationl ; 

//dlg.m_Dilitationl = (m__pSet->m_DILATION_l = = "1"); 
//BOOL in_DilitationLtl; 

//dlg.m_DilitationLtl = (m_jpSet->m_DILATION_LTl = = "1"); 
//BOOL m_DilitationUkn; 

//dlg.m_DilitationUkn = (in_j)Set->m_DILATION_UNKNOWN = = "1"); 
//CString m,_EGAatSample; 

dig. m,_EGAatS ample = in_j5Set->Tn-EGA-AT-SAMPLING; 

//CString m , _EGAbyLMP ; 

dlg.m,_EGAbyLMP = m,_pSet->m_EGA_BY_LMP; 
//CString m,_EGAbySONO; 

dlg.m,_EGAbySONO = m, _pSet->m_EGA_BY_SONO; 
//BOOL m_EthnicOriginAsian; 

dlg.m,_EthnicOriginAsian = m,_jpSet->m_ETHNIC_ORIGIN_ASIAN = =; "1"); 
//BOOL m_EthnicOriginBlack; 

dlg.m,_EthnicOriginBlack = m,_pSet->m_ETHNIC_ORIGIN_BLACK = =; "1"); 
//BOOL m_EthnicOriginHispanic; 

dlg.m,_EthnicOriginHispanic = tn, _pSet->m_ETHNIC_ORIGIN_HISPANIC = = ; "1"); 
//BOOL m_EthnicNativeAmerican; 

dig . m, _EthnicOrigiiiKrativeAmerican = m, _pSet- >m_ETHNIC_ORIGIN_NATIVEAMERICAN 
= =; "1") ; 
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//BOOL m_EthnicNativeOther; 

dlg.m,_EthnicOriginNativeOther = ni,_pSet->m_ETHNIC_ORIGIN_OTHER= =; "1 
//BOOL m_EthnicNativeWhite; 

dlg.m,_EthnicOriginNativeWhite = m, jpSet->m_ETHNIC_ORIGIN_WHITE= =; "1 
/ /BOOL m_FFN_Neg ; 

dlg.m,_FFN_Neg = m, _pSet->m_FFN_RESULT= =; "0") ; 
//BOOL m_FFISr_Pos ; 

dlg.tn,_FFN_Pos = m, _pSet - >m_FFN_RESULT= =; "1") ; 
//BOOL m_GestationDiabetes; 

dlg.m,_GestationDiabetes = m,_pSet->m_GESTATIONAL_DIABETES = =; "1") ; 
/ /BOOL m_HyperteiisiveDisorders ; 

dlg.m,_HypertensiveDisorders = m, j)Set->m_HYPERTENSIVE_DISORDERS = =; 
//BOOL m_Insulin; 

dlg.m,_Insulin = m, jpSet->m_INSULIN = =; "1") ; 
//Cstring m_LadID; 

dlg.m,_LadID = m,_jpSet->in_LAB_ID = =; "1") ; 
//BOOL m_MedicatioiiNone; 

dlg.m,_MedicationNone = m,_pSet->m_MEDICATIONS_NONE = =; "1") ; 
//BOOL m_MedicationUnknovm; 

dlg.m,_MedicationUnknown = m,_pSet->m_MEDICATIONS_UNKNOWN = =; "1") ; 
//BOOL m_MultipleGestationQuads ; 

dlg.m,_ MultipleGestationQuads = m,jpSet->m_ MirLTIPLE_GESTATION_QUADS 



"1") ; 
//BOOL 
dlg.m, 

//BOOL 



m_MultipleGestationTriplets ; 
MultipleGestationTriplets = m, j>Set->m_ 



"1") ; 



MULTIPLE_GESTATION TRIPLETS 



m_MultipleGestationTwiiis ; 
dlg.m,_ MultipleGestationTwins = m,_pSet- 
"1") . 

m_Mar i talSt atusDivorced ; 
MaritalStatusDivorced = m,_pSet->m_ 



//BOOL 
dlg.Ti 
"1") ; 
//BOOL 
dlg.m,_ 
//BOOL 
dlg.m,_ 
"1") ; 
//BOOL 



MULTI PLE_GESTATION_TWINS 



MARITIAL STATUS DIVORCED = =; 



m_MaritalStatusLWP; 
MaritalStatusLWP = in,_pSet->m_ MARITIAL_STATUS_LWP = =; "1"); 

m_MaritalStatusMarried; 
MaritalStatusMarried = m,_j>Set->m_ MARITIAL_STATUS_MARRIED = 



Tn_MaritalStatusOther ; 
dlg.m,_ MaritalStatusOther = m,_pSet->m_ MARITIAL_STATUS_OTHER = =; "1"); 
//BOOL m_MaritalStatusSingle; 

MaritalStatusSingle = m, jpSet->m_ MARITIAL_STATUS_S INGLE = =; "1") ; 

m_MaritalStatusWidowed; 
MaritalStatusWidowed = m,_pSet->m_ MARITIAL_STATUS_WIDOWED = =; 



dlg.m,_ 
//BOOL 
dig .m, _ 
"1") ; 
//BOOL 
dlg.m,_ 
//BOOL 
dlg.m,_ 
//BOOL 
dlg.tn,_ 
//BOOL 
dlg.m,_ 
//BOOL 
dlg.m,_ 
//BOOL 
dlg.in,_ 
//BOOL 
dlg.m,_ 
//BOOL 
dlg.m, _ 
//BOOL 



m_MultipleGestation; 
MultipleGestation = m,_pSet->m_ MULTIPLE_GESTATION= i 

m_Pat ientCompl ; 
PatientCompl = tn,_pSet->m_ PATIENT_C0MPLAINT_1= = 

Tn_PatientComp2 ; 
PatientComp2 = m,_pSet->in_ PATIENT_C0iyiPLAINT_2= = 

m_PatientComp3 ; 
PatientComp3 = m,_jpSet->in_ PATIENT_COMPLAINT_3= = 

in_PatientCotnp4 ; 
PatientComp4 = m,_pSet->m_ PATIENT_COMPLAINT_4= = 

in_PatientComp5 ; 
PatientCompB = in,_jpSet->m_ PATIENT_C0MPLAINT_5= = 

m_PatientComp6 ; 
PatientComp6 = m,_pSet->m_ PATIENT_COMPLAINT_6= = 

m_PatientComp6 ; 
PatientComp6 = m,_pSet->m_ PATIENT_C0MPLAINT_6= = 

m_Tocolytics ; 
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dlg.m,_Tocolytics = (m-pSet->iii_T0YOLYTICS 
//BOOL m_UtCervAbiiormal , 

dlg.m,_UtCerUAbnormal = (m-pSet->m_UTCERV_ABNORMALITY = = . "1"); 
//BOOL m_VaginalBleeding; 

dlg.m_VaginalBleeding - (m_pSet->m - VAGINAL_BLEEDING "1"); 
//BOOL m_VaginalBleedingGross; 

dig . m . _VaginalBleedingGross = {m_j)Set - >m- VAGINAL_BLEEDING_GROSS 
//BOOL m_VaginalBleedingMed; 

dig . m_VaginalBleedingMed = (mjpSet - >tn_VAGINAL_BLEEDING_MEDIUM 
//BOOL m_VaginalBleedingTrace; 

dlg.m,_VaginalBleedingTrace = (m_pSet->ni_VAGINAL_BLEEDING_TRACE 



dig . m_2_COMP_l = (m_pSet->m_2_C0MP_l = = "1"); 
//BOOL m_2_C0MP_2 ; 

//dlg.m_2_COMP_2 = (m_pSet->m_2_COMP_2 = = "1") ; 
//BOOL m_2_C0MP_3; 

//dlg.m_2_C0MP_3 = (m_pSet->m_2_COMP_3 = = "1") ; 
//CString m_ABORTIONS ; 

dlg.m_ABORTIONS = m_jpSet->m_ABORTIONS; 

//CString m_GRAVITY; 

dlg.m_GRAVITY = m_j)Set->m_GRAVITY; 

//CString m_PARITy; 

dlg.m_PARITY = m_PSet->m_PARITy; 

//BOOL m_PatCompl_l_3 ; 

dig . m_PatCompl_l_3 = (m_pSet->m_PATIENT_COMPLAINT_l_l_3 = = "1") ; 

//BOOL m_PatCompl_10_12, 

dlg.m_PatCompl_10_12 = (m_j5Set->m_PATIENT_COMPLAINT_l_10_12 = = "1") ; 

//BOOL m_PatCompl_4_6 ; 

dlg.m_PatCompl_4_6 = (m_pSet->m_PATIENT_C0MPLAINT_l_4_6 = = "1"); 
/ /BOOL m_PatCompl_7_9 ; 

dig . m_PatCompl_7_9 = (m_pSet->m_PATIENT_COMPLAINT_l_7_9 = = "1") ; 
//BOOL m_PatCompl_GT12 ; 

dig . m_PatCompl_GT12 = (m_jpSet->m_PATIENT_COMPLAINT_l_GT12 = = "1"); 
//BOOL m_PatCompl_LTl; 

dig . m_PatCorapl_LTl = (m_pSet->m_PATIENT_COMPLAINT_l_LTl = = "1"); 
if (dlg.DoModalO = = IDOK) { 



//dlg.m_DATE_OF_DATA_ENTRY = m_pSet->m_DATE_OF_DATA_ENTRY; 
//dlg.m_PATIENT_AGE = m_j)Set - >m_PATIENT_AGE ; 
//CString m_DATE_OF_BIRTH; 

m_pSet->m_DATE_OF_BIRTH = dig . m_DATE_OF_BIRTH ; 

//CString m_NAME_F; 

m_pSet->in_NAME_F = dig . tn_N'AME_F ; 

//CString m_NAME_L; 

mpSet->m_NAME_L = dig . m_NAME_L ; 

/Tcstring m_NAME_MI; 

m_j>Set->m_NAME_MI = dig . m_NAME_MI ; 
//BOOL m_l_COMP; 

m_pSet->tn_l-COMP = (dlg.m_l_COMP?"l" : "0") ; 

//BOOL m_2_COMP; 

m_pSet->m_2_C0MP = (dlg.ni_2_C0MP?"l" : "0") ; 



7 /BOOL" 



m_2_COMP_l ; 




m_3_C0MP; 
■>m_3_C0MP = (dig. 

m_4_C0MP; 
•>m_4_C0MP = (dig. 

M_5_COMP; 
->m_5_COMP = (dig. 

m_6_comp ; 
>m_6_COMP = (dig. 



m pSet - 

/Tbool 

in_j>Set- 

//bool 

m_pSet- 

//bool 



.m_3_COMP? "1" : "0") 



.m_4_C0MP?"l" : "0") 



m_5_COMP?"l" :0") 
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m_j>Set - >m_ACOG_S YNPTOMS = { dig . m_ACOG -N? " 0 " : " " ) ; 
//BOOL m_ACOG_Y; 
m_pSet->m_ACOG_SYNPTOMS = 
{dlg.m_ACOG_y?"l" :m_j5Set->m_AC0G_SYNPT0MS) ; 

//BOOL m_Antibiotics; 

inj)Set->m_ARTrBIOTICS = (dig .m-Antibiotics? " 1 " : " 0 " ) ; 
//BOOL m_AntiHyper; 

m PSet->m_ANTIHYPERTENSIVES = {dlg.m_AntiHyper?"l" : "0") ; 
/7bOOL tn CervCerclage; 

m_pSet->m_CIRVICAL_CERCLAGE = (dig . m_CervCerclage? " 1" : " 0 " ) ; 
/TbOOL m CervFirm; 

m_pSet - >m_CERVICAL_CONSISTANCY_FIRM = (dig . m_CervFirm? " l " : " 0 " ) ; 
//BOOL m_CervMod; 

m_jpSet - >m_CERVICAL_CONSISTANCY_MOD = (dig . m_CervMod? " 1 " : " 0 " ) ; 
//BOOL tn_CervSoft; 

mjpSet - >m_CERVICAL_CONSISTANCY_SOFT = (dig . m_CervSof t ? " 1 " : " 0 " ) ; 

//BOOL m_Corticosteroids; 
Li m_j)Set->m_CORTICOSTEROIDS = (dlg.m_CorticoBteroids?"l" : "0") ; 

//BOOL m_Dilitationl_2; 
= m_pSet->m_DILITATI0N_l_2 = (dlg.tn_Dilitationl_2?"l" : "0") ; 

• -.s //BOOL m_Dilitation2 ; 

m_pSet - >m_DILITATION_2 = (dig . m_Dilitat ion2 ? " 1 " : " 0 " ) ; 
iL; //BOOL m_Dilitation2-3; 

m_jpSet->m_DILITATION_2_3 = (dlg.m_Dilitation2_3?"l" : "0") ; 

//BOOL m_Dilitation3; 
l=N m_j>Set->m_DILITATION_3 = (dig .m_Dilitation3? "1 " : " 0 " ) ; 

IP //BOOL m_DilitationGt3; 

mpSet->m_DILITATI0N_GT3 = {dlg.m_DilitationGt3?"l" : "0") ; 

/TboOL m_Dilitationl; 
~t mpSet - >m_DILITATION_l = (dig . m_Dilitationl? « 1 " : " 0 " ) ; 

/TbOOL m_DilitationLtl; 
H Tn_pSet->m_DILITATION_LTl = (dlg.m_DilitationLtl?"l" : "0") ; 

1.4. //BOOL m_DilitationUkn; 

m_pSet->m_DILITATION_UlIKNOWN = (dlg.m_DilitationUkn?"l" : "0") ; 

//Cstring m_EGAatSample; 
ly m_pSet- >m_EGA_AT_SAMPLING = dig. m_EGAatSample; 

//cstring m_EGAbyLMP; 

m_pSet->m_EGA_BY_LMP = dig . m_EGAbyLiyiP ; 
//cstring m_EGAbySONO ; 

m_pSet->m_EGA_BY_SONO = dig . m_EGAbySONO ; 

//BOOL Tn_EthnicOriginAsian; 

m_pSet->m_EYHNIC_ORIGIN_ASIAN = 
(dlg.m_EthnicOriginAsian? "1" : "0") ; 

//BOOL ra_EthnicOriginBlack; 

m_pSet->m_ETHNIC_ORIGIN_BLACK = 
(dlg.m_EthnicOriginBlack? "1" : "0") ; 

/ /BOOL in_EthnicOriginHi spanic ; 

m_pSet->m_ETHNIC_ORIGIN_HISPANIC = 
(dlg.ni_EthnicOriginHispanic?"l" : "0") ; 

//BOOL m_EthnicOriginNativeAmerican; 

m_pSet- >m_ETHNIC_ORIGIN_MATIVE_AMERICAN = 
(dlg.ni_EthnicOriginNativeAmerican?"l" : "0") 

//BOOL m_EthnicOriginOther; 

m_pSet->m_ETHNIC_ORIGIN_OTHER = 
(dlg.m_EthnicOriginOther?"l" : "0") ; 

//BOOL m_EthnicOriginWhite; 

m_pSet - >m_ETHNIC_ORIGIM_WHITE = 
(dlg.m_EthnicOriginWhite? "1" : "0") 

//BOOL m_FFN_Neg; 

m_j>Set - >mFFN_RESULT = ( dig . m_FFN_Neg? " 0 " : " " ) ; 
/ /BOOL m_FFN_Pos ; 
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m_j)Set->m_FFN_RESULT = 
(dlg.m_FFN_Pos?"l" :mjpSet->m_FFN_RESULT) ; 

//BOOL m_GestationalDiabetes ; 

m_pSet->m_GESTATIONAL_DIABETES = 
(dlg.m_GestationalDiabetes?"l" : "0") ; 

//BOOL m_HypertensiveDisorders; 

in_j)Se t - >m_HYPERTENS I VE_D I SORDERS = 
(dlg.ra_HypertensiveDisorders?"l" : "0") ; 

//BOOL m_Insulin; 

mpSet - >m_INSULIN = (dig . m_Insulin? " 1 " : " 0 " ) 
/Tcstring m_LadID; 
m_jpSet->m_LAB_ID = dlg.m_LadID; 
/ /BOOL m_Medi cat ionNone ; 

mpSet - >ra_MEDICATIONS_NONE = (dig . in_Medi cat ionNone? " 1 " : " 0 " ) ; 

/TbOOL m_MedicationUnknown; 

m_j3Set->m_MEDIC::ATIONS_UNKN0WN = 
(dlg.m_MedicationUnknown?"l" :"0") ; 

//BOOL m_MultipleGestationQuads ; 

m_pSet - >m_MULTIPLE_GESTATION_QUADS = 
(dlg.m_MultipleGestationQuads?"l" : "0") ; 

//BOOL m_MultipleGestationTriplets; 

m_pSet - >m_MULTIPLE_GESTATION_TRIPLETS = 
(dlg.m_MultipleGestationTriplets?"l" : "0") ; 

//BOOL m_MultipleGestationTwins; 

m_pSet - >m_MULTIPLE_GESTATION_TWINS = 
(dlg.m_MultipleGestationTwins?"l" : "0") ; 

//BOOL m_MaritalStatusDivorced; 

m_pSet->m_MARITAL_STATUS_DIVORCED = 
(dig .m_MaritalStatusDivorced? " 1 " : " 0 " ) ; 

//BOOL m_MaritalStatusLWP; 

m_jpSet->m_MARITAL_STATUS_LWP - 
(dlg.m_MaritalStatusLWP?"l" : "0") ; 

//BOOL m._MaritalStatusMarried; 

m_j)Set - >m_MARITAL_STATUS_MARRIED = 
(dlg.m_MaritalStatusMarried?"l" : "0") ,- 

//BOOL in_MaritalStatusOther; 

m_pSet->m_MARITAL_STATUS_OTHER - (dlg.m_MaritalStatusOther?"l" : 

"0") ; 

//BOOL m_iyiaritalStatusSingle; 

m_pSet - >m_MARITAL_STATUS_SINGLE = 
{dlg.m_MaritalStatusSingle?"l" : "0") ; 

//BOOL m_MaritalStatusWidowed; 

m_jpSet->m_MARITAL_STATUS_WIDOWED = 
(dlg.m_MaritalStatusWidowed?"l" : "0") ,- 

//BOOL m_iyiultipleGestation; 

m_pSet->m_MULTIPLE_GESTATION = (dig 
m_MultipleGestat ion? " l " : " 0 " ) ; 

//BOOL m_PatientCompl ; 

m_j>Set - >m_PATIENT_COMPLAINT_ 

//BOOL m_PatientComp2 

m_jpSet - >in_PATIENT_COMPLAINT_ 

//BOOL m_PatientComp3; 

m_j3Set - >m_PATIENT_COMPLAINT_ 

/ /BOOL m_Pat ientComp4 ; ' 

m_j>Set - >m_PATIENT_COMPLAINT_ 

//BOOL m_PatientComp5;~ 



//BOOL 



_PatientComp6 ; 



//BOOL m_Tocolytics; 
m_j>Set->m_TOYOLYTICS = (dlg.m_Tocolytics?" 



_1 = 


(dig 


m_ 


_PatientCompl? 


1" : 


"0 


2 = 


(dig 


m_ 


_PatientComp2? 


1" : 


"0 


3 = 


(dig 


m_ 


_Pat i ent Corap 3 ? 


1" : 


"0 


.4 = 


(dig 


m_ 


_PatientComp4 ? 


1" : 


"0 


5 = 


(dig 


m_ 


PatientCompB? " 1 " : 


"0 


6 = 


(dig 


m_ 


_PatientComp6? 


1" : 


"0 
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//BOOL in_UtCervAbnormal ; 

m_pSet->m_UTCERV_ABNORMALITY = (dig .m_UtCervAbnormal? "1" : " 0 " ) ; 

//BOOL Tn_VaginalBleeding; 

m_pSet - >m_VAGrNAL_BLEEDING = (dig . m_VaginalBleeding? " 1 " : " 0 " ) ; 

//BOOL m_VaginalBleedingGross ; 

m_pSet- >tn_VAGINAL_BLEEDING_GROSS = 
(dlg.m_VaginalBleedingGross?"l" : "0") 

//BOOL m_VaginalBleedingMed; 

m_pSet->m_VAGINAL_BLEEDING_MEDIUM = 
(dig .m_VaginalBleedingMed? " 1 " : " 0 " ) ,- 

//BOOL ra_VaginalBleedingTrace; 

m._pSet->m_VAGINAL_BLEEDING_TRACE = 
(dig .m_VaginalBleedingTrace? " 1 " : " 0 " ) ; 

//BOOL m_2_C0MP_l; 

m_jpSet - >m_2 COMP_l = ( dig . m_2_COMP_l ? " 1 " : " 0 " ) ; 
//BOOL m_2_C0MP_2; 

mjpSet - >m_2 COMP_2 = ( dig . m_2_COMP_2 ? " 1 " : " 0 " ) ; 
//BOOL m_2_COMP_3 ; 

m_pSet->m_2_COMP_3 = (dig. m_2_COMP_3?"l" : "0") ; 
//CString m_ABORTIONS ; 

m pSet->m_ABORTIONS = dig . m_ABORTIONS ; 
/TCstring m_GRAVITY; 
m_pSet->m_GRAVITY = dig .m_GRAVITY; 
val = atoi (m_pSet->m_GRAVITY) ; 
if(val == 0) { 

m pSet->m_0_COMP = "1"; 
} else r 

m_jpiSet->m_0_COMP = "0"; 

//CString m_PARrTY; 

M_pSet->m_PARITY = dlg.m_PARITY; 

/ / BOOL m_Pat Comp 1_1_3 ; 

m_pSet - >m_PATIENT_COMPLAINT_l_l_3 = 
(dlg.tn_PatCompl_l_3? "1" : " 0 " ) ; 

/ /BOOL m_Pat Comp 1_1 0_1 2 ; 

m_pSet - >m_PATIENT_COMPLAINT_l_10_12 = 
( dig . Tn_Pat Compl_10_12 ? " 1 " : " 0 " ) ; 

/ /BOOL m_PatCompl_4_6 ; 

m_pSet - >m_PATIENT_C0MPLAINT_l_4_6 = 
(dig . m_Pat Compl_4_S ? " 1 " : " 0 " ) ; 

/ /BOOL Tn_PatCompl_7_9 ; 

m_pSet - >m_PATIENT_COMPLAINT_l_7_9 = 
(dig. m_Pat Comp 1_7_9?"1" : "0") ; 

//BOOL m PatCompl_GT12 ; 

m_pSet - >m_PATIENT_C0MPLAINT_l_GT12 = 
(dig . m_PatCompl_GT12 ? " 1 " : " 0 " ) ; 

//BOOL m_PatCompl_LTl; 

m_pSet->m_PATIENT_COMPLAINT_l_LTl = 
(dlg.m_PatCompl_LTl?"l" : "0") ; 

// generate the net fields 
m_pSet->RunNets (m_pSet->CurRecord) ; 

// write the record to the file 
m_j>Set->put_rec (m_j)Set->Rec) ; 

} 

} 

int CPTDinpView: : str2int ( CString& str ) 



if (str = = "0") retura 2, 

if (str = = "1") return 1, 

if (str = = "2") return 0, 

return -1; 



char* CPTDinpView: :int2str { int val ) 

if(val = = 0) return "2"; 

if (val = = 1) return "1"; 

if (val = = 2) return "0"; 

return " " ; 



int CPTDinpView: :yn2int ( CStringS str ) 

if (str = = "0") return 1; 
if (str = = "1") return 0; 
return -1; 



char* CPTDinpView: :int2yn( int val ) 

if (val = = 0) return "1"; 
if (val = = 1) return "0"; 
return " " : 



void CPTDinpView: :OiiDataEdit ( ) 

CPTDinpDoc*pDoc = GetDocument ( ) ; 
FILE *fp; 

fp = fopen (pDoc->PathName, "rb" ) ; 
if(fp!=NULL) { 

f close (fp) ; 
} else { 

CFileDialog Dig (TRUE, "fdb", NULL, OFN_OVERWRITEPROMPT 

"FDB iles (*.fbd) ??*) ; 
Dlg.m_ofn.lpstrTitle = "Open Fixed length DataBase file" 
if ( Dlg.DoModal 0 == IDOK ) { 

strcpy (pDoc->PathName, Dig. GetPathName {)); 
fp = fopen(pDoc->PathName, "rb" ) ; 
if(fp= =NULL) { 

AfxMessageBox( "Unable to open Database File! 
return; 

} 

pDoc->CurRecord = 0; 
f seek (fp, OL, SEEK_END) ; 

pDoc->NumRecords = ftell(fp) / (REC_LENGTH+2L) ; 
f close (fp) ; 



Edit ( ) ; 

} 

void CPTDinpView: :OnDataNew( ) 
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FILE *fp; 

CPTDinpDoc* pDoc = GetDocument ( ) ; 

create a new record 

fp = f open (pDoc->PathName, "ab") ; 
if(fp!=NULL) { 

fwrite (pDoc->Rec, sizeof (char) , (REC_LENGTH + 2L) , fp) 
f close (fp) ; 

pDoc->InitializeRec () ; 
pDoc->NumRecords += 1 ; 

pDoc->CurRecord = pDoc->NutnRecords - 1; 
pDoc->put_rec (pDoc->Rec) ; 
// edit the new record 

pDoc->get_rec (pDoc->Rec) ; 
Edit ( ) ; 

} 

// PTDIVW.h : interface of the CPTDinpView class 
// 

/////////////////////////////////////////////////////////////////////////// 
/////////////////////////////////////////////////////////////////////////// 

class CPTDinpView : piiblic CView 

protected: // create from serialization only 
CPTDinpView ( ) ; 

DECLARE_DYNCRF.ATE (CPTDinpView) 

//Attributes 
public : 

CPTDinpDoc* GetDocument ( ) ; 

BOOL ShowPrt; 

CPTDinpDoc* m_pSet; 
void Edit ( void ) ; 

// Operations 
public : 

// conversions for dialogs 

int str2int( CString& str ) ; 

char* int2str( int val ) ; 

int yn2int ( CString& str ) ; 

char* int2yn{ int val ) ; 

// Implementation 

public : 

virtual -CPTDinpView ( ) ; 

virtual void OnDraw{CDC* PDC) ; // overridden to draw this view 
#ifdef_DEBUG 

viriual void AssertValid( ) const; 

virtual void Dump (CDumpContext& dc) const; 

#endif 
protected: 



// Printing support 

virtual BOOL OnPreparePrintlng (CPrintlnf o* pinfo) ; 
virtual void OnBeginPrinting (CDC* pDC, CPrintlnf o* pInfo) ; 
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virtual void OnEndPrinting {CDC* pDC, CPrintlnfo* pinf o) ; 

// Generated message map functions 
protected: 

//{ {AFX_MSG(CPTDinpView) 

afx_msg void OnDataEdit ( ) ; 

afx msg void OnDataNew ( ) ; 

//}yAFX_MSG 

DECLARE MESSAGE MAP ( ) 

}; 

#ifndef_DEBUG // debug version in PTDivw.cpp 
inline CPTDinpDoc* CPTDinpView: : GetDocument { ) 
{ return (CPTDinpDoc* ) m_pDocument ; } 

#endif 

/////////////////////////////////////////////////////////////////////////// 
/////////////////////////////////////////////////////////////////////////// 



// stdafx.cpp : source file that includes just the standard includes 

// stdafx.pch will be the pre-corapiled header 

// stdafx.obj will contain the pre-compiled type information 

#include "stdafx.h" 



// stdafx.h : include file for standard system include files, 

// or project specific include files that are used frequently, but 

// are changed infrequently 

#include <afxwin.h> // MFC core and standard components 

#include <afxext.h> // MFC extensions (including VB) 

#include <afxdb.h> // MFC database classes 

// 

// ENDOINP.RC2 - resources App Studio does not edit directly 

#ifdef APSTIIDIO_INVOKED 

terror this file is not editable by App Studio 
#endif //APSTUDIO_INVOKED 

/////////////////////////////////////////////////////////////////////////// 
/////////////////////////////////////////////////////////////////////////// 
// Version stamp for this .EXE 

#include "ver.h" 

VS_VERSION_INFO VERSIONINFO 
FILEVERSION 1,0,0,1 
PRODUCTVERS ION 1,0,0,1 

FILEFLAGSMASK VS_FFI_FILEFLAGSMASK 

#ifdef _DEBUG 

FILEETAGS 

VS_FF_DEBUG I VS_FF PRIVATEBUILD ! VS FF PRERELEASE 
#else - - 

FILEFLAGS 0 // final version 

#endif 
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FILEOS V0S_D0S_WIND0WS16 
FILETYPE VFT_APP 
FILESUBTYPE 0 // not used 

BEGIN 

BLOCK "StringFilelnfo" 
BEGIN 

BLOCK "040904E4" // Lang=US English, CharSet=Windows Multilingual 
BEGIN 

VALUE " CompanyName " , " \ 0 " 

VALUE "FileDescription" , "ENDOINP MFC Application\0" 

VALUE "FileVersion" , "1.0.001\0", 

VALUE "InternalName", "ENDOINP\0" 

VALUE "LegalCopyright" , "\0" 

VALUE "LegalTrademarks" , "\0" 

VALUE "OriginalFilename" , " ENDOINP. EXE\0" 

VALUE "ProductName", "ENDOINP\0" 

VALUE "ProductVersion", 111 . 0 . 001\01 , 

END 

END 

BLOCK "VarFilelnfo" 
BEGIN 

VALUE "Translation", 0x409, 1252 

// English language (0x409) and the Windows ANSI codepage 

(1252) 

END 

END 

/////////////////////////////////////////////////////////////////////////// 
/////////////////////////////////////////////////////////////////////////// 

// Add additional manually edited resources here... 

/////////////////////////////////////////////////////////////////////////// 
/////////////////////////////////////////////////////////////////////////// 



//{{NO DEPENDENCIES}} 

App Studio generated include file . 

//Used by PTDINP.RC 



#define APS_3D_C0NTROLS 1 

#define YDD_TBOUTBOX 100 

#define IDD_ENDOIN_FORM 101 

#define IDD_ENDO_PG01 102 

ttdefine IDD_ENDO_PG02 103 

ftdefine IDD_ENDO_PG03 104 

#define IDD_ENDO_PG04 105 

ttdefine IDD_END0_PG05 106 

#define IDD_END0_PG06 107 

#define IDD_ENDO_PG07 108 

ttdefine IDD_ENDO_PGOS 109 

#define IDD_ENDO_PG0 9 110 

ftdefine IDD_ENDO_PG10 111 

#define IDD_END0_PG11 112 

#define IDD_END0_PG12 113 

#define IDD_END0_PG13 114 

#define IDD_ENDO_PG14 115 

#define IDD_ENDO_SP04A 116 

#define IDD_ENDO_SP04B 117 

#define IDD_ENDO_SP0 7A 118 

#define IDD_ENDO_SP08A 119 

#define IDD_ENDO_SP08B 120 
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#define 


IDR 


MAINFRAME 


128 


#def ine 


IDR 


ENDOINTYPE 


129 


#def ine 


IDP' 


FAILED OPEN DATABASE 


130 


#def ine 


idd" 


ENDO S908C 


131 


#define 


idd" 


ENDO PG15 


132 


#def ine 


idd" 


ENDO SPlOA 


133 


#def ine 


idd" 


ENDO SP0 8D 


134 


#def ine 


idd" 


ENDO SP0 9A 


135 


#define 


idd" 


ENDO SP0 8E 


136 


#def ine 


idd" 


ENDO PGO 


137 


idefine 


idd" 


ENDO PG77 


138 


#define 


idd" 


D PT5 INP 


139 


#define 


idd" 


D G0T5 


140 


#def ine 


idb' 


BITMAPl 


141 


#define 


IDC" 


E DATE 


1000 


#define 


IDC" 


"e ADEZA ID 


1001 


#def ine 


IDC' 


E INST ID 


1002 


#define 


idc" 


E AGE MENS 2 


1002 


#define 


IDC" 


"E ADEZA ID2 


1002 


#def ine 


IDC" 


E TOTAL POINTS 


1002 


#define 


IDC' 


E PAT BIRTHDATE 


1003 


#define 


IDC" 


E PAT ZIPCODE 


1004 


#define 


IDC' 


E PAT OCCUPATION 


1005 


idefine 


IDC' 


"C PAT WHITE 


1005 


#define 


IDC' 


"C PAT BLACK 


1007 


#def ine 


IDC' 


~C PAT HISPANIC 


1008 


#def ine 


IDC" 


C PAT ASIAN 


1009 


#define 


IDC 


C PAT OTHER 


1010 


#define 


IDC' 


~C PAT HIGHSCHOOL 


1011 


#define 


IDC 


~C PAT COLLEGE 


1012 


#define 


IDC 


~C PAT GRADUATE 


1013 


#def ine 


IDC" 


"C PAT POSTGRAD 


1014 


#def ine 


IDC 


C MARRIED 


1015 


ttdefine 


IDC 


B GOBACK 


1016 


#def ine 


IDC" 


~C SP WHITE 


1017 


idefine 


IDC 


C SP BLACK 


1018 


idefine 


IDC 


C SP HISPANIC 


1019 


idefine 


IDC 


C SP ASIAN 


1020 


idefine 


IDC' 


'C SP OTHER 


1021 


idefine 


IDC" 


'C SP HIGHSCHOOL 


1022 


idefine 


IDC 


_C_SP COLLEGE 


1023 


idefine 


IDC" 


~C SP GRADUATE 


1024 


idefine 


IDC" 


~C SP POSTGRAD 


1025 


idefine 


IDC" 


'E SP OCCUPATION 


1026 


idefine 


IDC 


E PAT AGE 


1027 


idefine 


IDC 


C PAT FLAG 


1028 


idefine 


IDC" 


'r DIAB MELLl 


1029 


idefine 


IDC' 


■r DIAB MELL2 


1030 


idefine 


IDC" 


R DIM MELL3 


1031 


idefine 


IDC' 


'b PREV PG 


1032 


idefine 


IDC" 


"R OTHER STDl 


1033 


idefine 


IDC 


"r other STD2 


1034 


idefine 


IDC 


R PI DIABl 


1035 


idefine 


IDC" 


R PI DIAB2 


1036 


idefine 


IDC' 


_R_PI_DIAB3 


1037 


idefine 


IDC 


R OTHER STD3 


1038 


idef ine 


IDC' 


'R VAG IRFl 


1039 


idefine 


IDC 


"R VAG INF2 


1040 


idefine 


IDC 


"R VAG INF 3 


1041 


idefine 


IDC' 


'r gen warts 1 


1042 


idef ine 


IDC 


"R-GBN-WARTS2 


1043 
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#define IDC_R_GEN_WARTS3 1044 

#define IDC_R_UT_YUB_ABNORI 1045 

#define IDC_R_UT_TUB_ABN0R2 1046 

#define IDC_R_UT_TUB_ABN0R3 1047 

#define IDC_R_DYS_UT_BLEED1 1048 

#define IDC_R_DYS_UT_BLEED2 104 9 

#define IDC_R_HYPERTEN1 1050 

#define IDC_R_DYS_UT_BLEED3 1050 

#define IDC_R_HYPERTEN2 1051 

#define IDC_R_SM0KING1 1051 

#define IDC_R_HYPERTEIsr3 1052 

#define IDC_R_SMOKING2 1052 

#define IDC_R_PI_HYPERTEN1 1053 

#define IDC_R_S140_KING3 1053 

#define IDC_R_PI_HYPERTEN2 1054 

#define IDC_R_DRUG_ABUSE1 1054 

tdefine IDC_R_PI_HYPERTEN3 1055 

#define IDC_R_DRUG_ABUSE2 1055 

L.^ #define IDC_R_AUTO_IMMUNEl 1056 

#define IDC_R_DRUG_ABUSE3 1056 

£J #define IDC_R__AUTO_IMMUNE2 1057 

.-B #define IDC_R_PRES_MED1 1057 

#define IDC_R_AUT0_INMUNE3 1058 

i'.l #define IDC_R_PRES_MED2 1058 

#define IDC_R_PRES_MED3 1059 

^'H #define IDC_R_DYS_UT_BLEED4 1059 

ilR #define IDC_R_U]SroETERMINED2 1060 

J, #define IDC_R_OV_CYSTl 1061 

PI idefine IDC_R_ORG_TRANSl 1062 

rt #define IDC_R_OV_EYST2 1062 

f* #define IDC_R_ORG_TRANS2 1063 

H #define IDC_R_0V_CYST3 1063 

1,4= #define IDC_R_OTHER_CURl 1063 

f3 #define IDC_R_ORG_TRANS3 1064 

#define IDC_R_POLY_OV_SYiroi 1064 

idefine IDC_R_0THEK_CUR2 1064 

idefine 1DC_R_PEL_INFL_DIS1 1065 

tdefine IDC_P0LY_0V_SYND2 1065 

tdefine IDC_R_PEL_INFL_DIS2 1066 

#define IDC_R_POLY_OV_SYND3 1066 

#define IDC_R_PEL_INFL_DIS3 1067 

#define IDC_R_AB_PAP_DYSPL1 1067 

#define IDC_R_HERPEST1 1068 

#define IDC_R_AB_PAP_DYSPL2 1068 

#define IDC_R_HERPES2 1069 

#define IDC_R_AB_PAP_DYSPL3 1069 

#define IDC_R_HERPES3 1070 

#define IDC_R-GYN_CANSER3 1070 

#define IDC_R_GYN_CANSER2 1071 

#define IDC_R_GYN_CANSERI 1072 

#define IDC_R_FIBTOIDS3 1073 

#define IDC_R_FIBROIDS2 1074 

tdefine IDC_R_FIBROIDSl 1075 

idefine IDC_R_0THER_HX3 1076 

idefine IDC_R_OTHER_HX2 1077 

idefine IDC_R_OTHER_HXI 1078 

idefine IDC_R_PELVIE_PAIN1 1079 

idefine IDC_R_ECT0PIC_PREG1 1079 

idefine IDC_R_PELVIC_PAIN2 1080 

idefine IDC_R_ECTOPIC_PREG2 1080 

idefine IDC_R_ABD0M_PAIN1 1081 
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#define 


IDC 


R ECTOPIC PREG3 


1081 


#define 


IDC 


"aBDOM PAIM2 


1082 


#def ine 


IDC" 


R MENS ABNORMI 


1083 


#def ine 


IDC" 


R MENS ABN0RM2 


1084 


#define 


IDC" 


R DYSMENl 


1085 


#define 


IDC" 


R DYSMEN2 


1086 


#def ine 


IDC' 


-R DISPARl 


1087 


#define 


IDC" 


R DISPAR2 


1088 


#define 


IDC" 


R INFERTILITY! 


1089 


#def ine 


IDC' 


"R INFERTILITY2 


1090 


#def ine 


IDC" 


R ADN MAS THICKl 


1091 


#def ine 


IDC" 


R ADN MAS THICK2 


1092 


#def ine 


IDC" 


R OVARIAN CYSTl 


1093 


#def ine 


IDC" 


R OVARIAN CYST2 


1094 


#define 


IDC" 


_R_UNDETERMINED1 


1095 


#define 


IDC' 


E CUR SYM OTHER 


1096 


#def ine 


IDC" 


R MENST REGl 


1097 


#define 


IDC" 


~R MENST REG2 


1098 


#def ine 


IDC" 


E LAST PERIOD 


1099 


#def ine 


IDC" 


E RECENT PART 


1100 


#define 


IDC' 


E GRAVIDITY 


1101 


#def ine 


IDC' 


E PARITY 


1102 


#def ine 


IDC" 


R HX INFERTl 


1103 


#define 


IDC' 


R HX INFERT2 


1104 


idefine 


IDC" 


R OV STAT KNOWNl 


1105 


#define 


IDC" 


R OV STAT KN0WN2 


1106 


#define 


IDC" 


E SPONT ABORT 


1107 


#def ine 


IDC 


R MENS FLOWl 


1107 


#define 


IDC" 


E ELECT ABORT 


1108 


#define 


IDC' 


"R MENS FLOW2 


1108 


#define 


IDC' 


"R MENS FL0W3 


1109 


#def ine 


IDC' 


R HX OF ENDOl 


1110 


#def ine 


IDC 


R HX OF END= 


1111 


#define 


IDC 


R HX PEL SURGl 


1112 


#def ine 


IDC 


R HX PEL SURG2 


1113 


#define 


IDC' 


R HORMON MEDl 


1114 


#define 


IDC' 


~R HORMONE MED2 


1115 


#define 


IDC' 


"E CUR SURG DATE 


1116 


#def ine 


IDC' 


"E CUR SURG REAS0N2 


1117 


#def ine 


IDC 


C DIAG LA PAR 


1118 


#def ine 


IDC' 


'CLASER OBLIT 


1119 


#def ine 


IDC 


C SURG EXCISION 


1120 


#define 


IDC 


C HI SAL OOPH 


1121 


#define 


IDC' 


'C UNIL OOPH 


1122 


#def ine 


IDC" 


C EXC OV CYST 


1123 


#def ine 


IDC 


C OLULA 


1124 


#define 


IDC" 


'C HYSTERECTOMY 


1125 


#define 


IDC' 


'C HYSTEROSCOPY 


1126 


#def ine 


IDC' 


'C D AND C 


1127 


#define 


IDC' 


"C CUR SURG OTHER 


1128 


#def ine 


IDC' 


C NORM PEL 


1129 


#define 


IDC' 


'ENDO PRESENT 


1130 


#def ine 


IDC 


'C ADHESIONS PRES 


1131 


#define 


IDC 


C FIBROIDS TRES 


1132 


tdefine 


IDC' 


'C PELV INF DISEASE 


1133 


#def ine 


IDC 


C GYN CANCER 


1134 


tdefine 


IDC' 


'C OTHER GYN DIS 


1135 


#def ine 


IDC 


R AFS STGl 


1136 


#def ine 


IDC" 


"R-AFS STG2 


1137 


ftdefine 


IDC 


R AFS STG3 


1138 


#define 


IDC~ 


'R AFS STG4 


1139 
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#define IDC_C_BHJE_BK_LESIONS 1141 

#define IDC_C_RED_LESIONS 1142 

#define IDC_C_WHITE_LESIONS 1143 

#define IDC_R_PEL_ADH_PRES1 1144 

#define IDC_R_PEL_ADH_PRES2 1145 

#define IDC_R_AW_CORF_BIOPSYl 1146 

#define IDC_R_END0_C0NF_BI0PSY2 1147 

Sdefine IDC_b-OVERIES_AT 1148 

#define IDC_C_OVERIES_ADH 1149 

#define IDC_C_FALLOP_EST 1150 

#define IDC_C_FALLOP_ADH 1151 

#define IDC_C_UT_LIG_EST 1152 

#define IDC_C_UT_LIG_ADH 1153 

#define IDC_C_CULDESAC_EST 1154 

#define IDC_C_CULDESAC_ADH 1155 

#define IDC_C_BROAD_LIG_EST 1156 

#define IDC_C_BROAD_LIG_ADH 1157 

l^^ #define IDC_C_PEL_SYDE_EST 1158 

:* #define IDC_C_PEL_SIDE_ADH 1159 

#define IDC_C_VESIC_EST 1160 

O #define IDC_C_VESIC_ADH 1161 

.,£2 #define IDC_C_OTHER_EST 1162 

tU #define IDC_C_OTHER_ADH 1163 

P #define IDC_E_PID_DATE 1164 

1^ #define IDC_R_HAVE_PID1 1165 

l,M #define IDC_E_PID_LOC_SPECIFY 1165 

#define IDC_E_ADDL_PID 1165 

#define IDC_R_HAVE_PID2 1166 

ttdefine IDC_E_PID_L0C_SPECIFY2 1166 

#define IDC_C_PID_C_LAPS 1167 

i'"^ #define IDC_C_PID_C_LAPT 1168 

1-1= #define IDC_C_PID_C_DIFF_DIAG 1169 

#define IDC_C_PID_C UNDET 1170 

^fflt #define IDC_E_PID_A_SPECIFY 1171 

#defiiie IDC_R_PID_C0NF_SURG1 1172 

iU #define IDC_R_GC_HISTOLOGYl 1172 

#define IDC_R_P15_CONF_SURG2 1173 

#define IDC_R_GC_HISTOL0GY2 1173 

#define IDC_C_PID_]y!_ORG_UNKNOWN 1174 

#define IDC_C_PID_ORG_NEISS 1175 

#define IDC_C_PID_M_ORG_CH_TR 1176 

#define IDC_C_PID_M_ORG_GM 1177 

#define IDC_C_PID_M_ORG_OTHER 1178 

#define IDC_C_PID_M_LOC_VAGINA 1179 

#define IDC_C_PID_LOC_CERVIX 1180 

#define IDC_C_PID_LOC_OVARIES 1181 

#define IDC_C_PID_LOC_FALLOP 1182 

#define IDC_C_PID_LOC_OTHER 1183 

#define IDC_E_PID_ORG_SPECIFY 1184 

tdefine IDC_R_GC PRIMARY 1185 

Nefine IDC_R__GC_PRIMARY2 1186 

Nefine IDC_R_GC_PRIMARY3 1187 

#define IDC_R_GC_PRIMARY4 1188 

#define IDC_R_GC_GRADEI 1189 

Kefine IDC_R_GC_STAGE2 1190 

Kefine IDC_R_GC_STAGE3 1191 

Nefine IDC_R_GC_STAGE4 1192 

#define IDC_R_GC_STAGE5 1193 

#define IDC_R_GC_GRADE2 1194 

#define IDC_R_GC_GRADE3 1195 

#define IDC_R_GC_STAGE1 1196 
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#define IDC_E_GC_TU]yEOR_TYPE 1197 
#define IDC_E_GC_SITES_SPECIFY 1198 
# define IDC_E_GC_ADD_INFO 1199 
# define IDC_E-PKS_PER_DAY 1200 
#define IDC_E_OTHER_STD_SPECIFY 1201 
#define IDC-E - PRES-MED_DRUG1 12 02 

#define IDC_E_PRES_MED_DATE1 1203 
#define IDC_E_PRES_MED_DRUG2 1204 
#define IDC__E_OTHER_HX_SPECIFY 12 04 

#define IDC_E_PRES_MED_DATE2 12 05 

#define IDC_C_INFERT_PRI 1205 
#define IDC_E_PRI]yiARY_LEN 12 06 

#define IDC_C_INFERT_SEC 1207 
#define IDC_C_HOR_MEDl 12 07 

#define IDC_ESECONDARY_LEN 12 08 

#define IDC_E_H0R_MED_D0SE1 1208 
#define IDC_E_H0R_MED_DATE1 1209 
#define IDC_E_PEL_SURG_TYPE1 1209 
#define IDC_E_HOR_MED_PURPl 1210 
#define IDC_E_PEL_SURG_DATE1 1210 
#define IDC_C_H0R_MED2 - 1211 

#define IDC_E_PEL_SURG_DATE2 1211 
#define IDC_R_OVUL_STATl 1211 
#define IDC_E_HOR_MED_DOSE2 1212 
#define IDC_E_PEL_SURG_TYPE2 1212 
#define IDC_R_OVUL_STAT2 1212 
#define IDC_E_H0R_MED_DATE2 1213 
#define IDC_E_PEL_SUR_DATE3 1213 
#define IDC_R_OVUL_STAT3 1213 
#define IDC_E_H0R_MED_PURP2 1214 
#define IDC_E_PEL_SirRG_TYPE3 1214 
#define IDC_EST_OTHER_SPECIFY 1214 
ttdefine IDC_C_HOR_MED 1215 
#define IDC_E_PEL_SURG_DATE4 1215 
#define IDC_E_ADH-OTHER_SPECIFY 1215 
#define IDC_E_H0R_MED_D0SE3 1216 
#define IDC_E_PEL_SURG_TYPE4 1216 
#define IDC_C_MENST_HORM_INDUCED 1216 
#define IDC_E_HOR_MED_DATE3 1217 
#define IDC_E_TYP_CYC_LEN 1217 
#define IDC_E_H0R_MED_PURP3 1218 
#define IDC_E_TYP_PERIOD_LEN 1218 
#define IDC_C_H0R_MED4 1219 
ttdefine IDC_E_FREQUENCY 1219 
#define IDC_E_HOR_MED_DOSE4 122 0 

#define IDC_E_OTH_SURG_PROC_SPECIFY 122 0 
#define IDC_E_HOR_MED_DATE4 1221 
#define IDC_E_OTHER_GYN_SPECIFY 1221 
#define IDC_E_H0R_MED_PURP4 1222 
#define IDC_CONFIRMED_BY_LAPAROSCOPY 1222 
#define IDC_C_CONFIRMED_BY_IiAPAROTOMY 1223 
#define IDC_CONFIRMED_BY_BIOPSY 1224 
#define IDC_E_LAPAROSCOPY_DATE 1225 
#define IDC_E_LAPAROTOMY_DATE 1226 
#define IDC_E_BIOPSY_DATE 1227 
#define IDC_E_RECORD_COUNT 1230 
#define IDC_R_HORMONE_INDUCED 1232 
#define IDC_R_HORMONE_INDUCED2 1233 
idefine IDC_EO_WHITE 1247 
#define IDC_EO_BLACK 1248 
#define IDC_EO_ASIAN 1249 
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#def ine 


IDC 


EO HISPANIC 


1250 


#def ine 


IDC' 


EO NATIVE AMERICAN 


1251 


#def ine 


IDC 


EO OTHER 


1252 


#def ine 


IDC" 


MS MARRIED 


1253 


#def ine 


IDC" 


MS SINGLE 


1254 


#def ine 


IDC" 


MS WIDOWED 


1255 


#define 


IDC" 


MS LWP 


1256 


idefine 


IDC" 


MS OTHER 


1257 


#define 


IDC" 


"acog Y 


1258 


#def ine 


IDC 


ACOG N 


1259 


#def ine 


IDC' 


~MS DIVORCED 


1260 


#define 


IDC" 


"ANTIBIOTICS 


1261 


#def ine 


IDC" 


FFN POS 


1262 


#def ine 


IDC' 


CORTICOSTEROIDS 


1263 


#define 


IDC' 


"TOCOLYTICS 


1264 


#def ine 


IDC' 


INSULIN 


1265 


#define 


IDC" 


"antihyper 


1266 


#define 


IDC 


FFN NEG 


1267 


#def ine 


IDC' 


"MED NONE 


1268 


#define 


IDC' 


"med UKN 


1269 


idefine 


IDC' 


"patent COMP 1 


1270 


#define 


IDC' 


"patient COMP 3 


1271 


#define 


IDC' 


PCI LTl 


1272 


#define 


IDC" 


"PCl 1 3 


1273 


♦define 


IDC' 


"PCl 4 6 


1274 


#def ine 


IDC' 


PATENT COMP 2 


1275 


#def ine 


IDC' 


VAGINAL BLEEEING 


1276 


#define 


IDC' 


VB TRAC 


1277 


#def ine 


IDC' 


VB MED 


1278 


#define 


IDC' 


VB GROSS 


1279 


#define 


IDC' 


PATIENT COMP 6 


1280 


ftdefine 


IDC' 


"patient COMP 5 


1281 


#def ine 


I DC' 


PATIENT COMP 4 


1282 


#define 


IDC' 


"EGA BY SONO 


1283 


#define 


IDC' 


"EGA BY LMP 


1284 


#define 


IDC' 


EGA AT SAMP 


1285 


#define 


IDC' 


DILI TAT ION LTl 


1286 


#def ine 


IDC' 


DILITATION 1 


1287 


#define 


IDC' 


DILITATION 1 2 


1288 


#define 


IDC' 


DILITATION 2 


1289 


#def ine 


IDC' 


'DILITATION 2 3 


1290 


#define 


IDC' 


DILITATION 3 


1291 


#def ine 


IDC' 


DILITATION GT3 


1292 


#define 


IDC' 


CERV FIRM 


1293 


#define 


IDC' 


CERV MOD 


1294 


#def ine 


IDC' 


CERV SOFT 


1295 


#def ine 


IDC' 


1 CORP 


1298 


#def ine 


IDC' 


"2 COMP 


1299 


#define 


IDC' 


"3 COMP 


1300 


#def ine 


IDC' 


4 COMP 


1301 


#def ine 


IDC 


5 COMP 


1302 


#define 


I DC' 


e COMP 


1303 


#def ine 


IDC' 


"mult gest 


1304 


#define 


IDC' 


UT CWRV ABNORM 


1305 


#define 


IDC' 


"CERV CERCLAGE 


1306 


#def ine 


IDC' 


GEST DIABETES 


1307 


#define 


IDC' 


"HYPERTEN DISORDERS 


1308 


# define 


I DC' 


MG TWINS 


1309 


#def ine 


IDC' 


'mg triplets 


1310 


#define 


IDC 


MG QUADS 


1311 


#define 


IDC 


'name L 


1313 
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w 
w 
m 
en 



o 
m 



#define 
#define 
# define 
#def ine 
#def ine 
#def ine 
#define 
#define 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#def ine 
#define 
#define 
#define 
#define 
#def ine 
#define 
#def ine 
#define 



IDC_NAME_F 

IDC_NAME_iyiI 

IDC_DATE_OF_BIRTH 

IDC_LAB_ID 

IDC_DILATATION_UKN 

IDC_GRAVIDITY 

IDC_PARITY 

IDC_ABORTIONS 

IDC_PC1_7_9 

IDC_PC1_10_12 

IDC_PC1_GT12 

IDC_2_CUMP_1 

IDC_2_COMP_2 

IDC_2_COMP_3 

IDC_R_GOTO_SELl 

IDC_R_G0T0_SEL2 

IDC_E_GOTO_REC_NUM 

IDC_E_GOTO_ID_NUM 

IDD_DATA_NEW 

ID_DATA_NEW 

ID_DATA_EDIT 

ID_REC_FIRST 

ID_REC_NEXT 

ID_REC_PREV 

ID_REC_IiAST 

ID_BLD_NET_FILE 

ID_EDIT_MODE 

ID_CLR_SUBFIELDS 

ID REC GOTO 



1314 

1315 

1316 

1317 

1318 

1319 

1320 

1321 

1322 

1323 

1324 

1325 

1326 

1327 

1329 

1330 

1331 

1332 

32771 

32772 

32773 

32774 

32775 

32776 

32777 

32778 

32779 

32780 

32781 



// Next default values for new objects 
// 

#ifdef APSTUDIO_INVOKED 

#ifndef APSTUDIO_READONLY_SYMBOLS 



#define 
#def ine 
#def ine 
#define 
#endif 
#endif 



APS_NEXT_RESOURCE_VALUE 142 

APS_NEXT_COMMAND_VALUE 32782 

APS_NEXT_CONTROL_VALUE 1333 
APS_NEXT_SYiyiED_VALUE 101 



//Microsoft App Studio generated resource script. 

#include " resource. h" 

#define APSTUDIO_READONLY_SYMBOLS 

/////////////////////////////////////////////////////////////////////////// 
/////////////////////////////////////////////////////////////////////////// 

// Generated from the TEXTINCLUDE 2 resource. 
// 

#include "afxres.h" 

/////////////////////////////////////////////////////////////////////////// 
/////////////////////////////////////////////////////////////////////////// 

#undef APSTIlDIO_READONLY_SYMBOLS 
#ifdef APSTUDIO INVOKED 



//////////f///////////////////////////////// ////////////////////////// J//// 
/////////////////////////////////////////////////////////////////////////// 

// TEXTINCLUDE 
// 

1 TEXTINCLUDE DISCARDABLE 
BEGIN 

" resource.h\0" 

END 

2 TEXTINCLUDE DISCARDABLE 
BEGIN 

"#include afxres .h" ' \r\n" 
"\0" 

END 

3 TEXTINCLUDE DISCARDABLE 
BEGIN 

J J #include " "res\\PTDinp. rc2 " " // non-App Studio edited 

' resources\r\n" 
C "\r\n" 

: "#include "' afxres . rc" " \011// Standard components \r\n" 

"#include " ' af xprint . rc " " \011// printing/print preview 
l". resources\r\n" 

.11 "#include " "af xdb . rc" "\011\011// Database resources\r\n" 

III "\0" 
fp END 

/////////////////////////////////////////////////////////////////////////// 
/////////////////////////////////////////////////////////////////////////// 
#endif //APSTUDIO_INVOKED 

i- /////////////////////////////////////////////////////////////////////////// 

H /////////////////////////////////////////////////////////////////////////// 

{'=•■=!: / / 

m 

IDR_MAINFRAME ICON DISCARDABLE "RES\\PTDINP . ICO" 

/////////////////////////////////////////////////////////////////////////// 
/////////////////////////////////////////////////////////////////////////// 

// Bitmap 
// 

IDR_MAINFRAME BITMAP MOVEABLE PURE "RES\\TOOLBAR . BMPll 

IDB__BITMAP1 BITMAP DISCARDABLE 

"RES\\BITMA. PI . BMP" 

iJJJJJJiJJJiJJJJJJJiiJiiiiiiiiiiiiiiiiiiiiiiiifiiiiiiin 
n///////////////// /////////////////////////////////////////////// ///////// 

11 Menu 
// 

IDR_MAINFRAME MENU PRELOAD DISCARDABLE 
BEGIN 

POPUP "&File" 
BEGIN 

MENUITEM " &Open. . .\tCtrl+0", ID_FILE_OPEN 
MENUITEM SEPARATOR 

MENUITEM "&Print", ID FILE PRINT 
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END 

POPUP ' 
BEGIN 



MENUITEM 
MENUITEM 
MENUITEM 
MENUITEM 
MENUITEM 
MENUITEM 
MENUITEM 
MENUITEM 
MENUITEM 



MENUITEM 
MENUITEM 
MENUITEM 
MENUITEM 
MENUITEM 
MENUITEM 
MENUITEM 
MENUITEM 
MENUITEM 
MENUITEM 
MENUITEM 



"Print &Setup" . 
"Print Preview" 
SEPARATOR 
"Filel", 
"File2 " , 
" Files 
"File4", 
SEPARATOR 
"E&xit " , 



%First Record", 
" &Prev Record" , 
%Next Record" , 
%Last Record" , 
SEPARATOR 
%Go to Record" , 
SEPARATOR 
%Edit Record", 
%New Record" , 
SEPARATOR 
"Neural SData", 



POPUP %Options" 
BEGIN 

MENUITEM %Print Full Form", 
MENUITEM %Clear Siibfields", 

END 

POPUP %View" 
BEGIN 

MENUITEM %Toolbar" . 
MENUITEM %Status Bar", 



ID_FILE_PRINT_SETUP 
ID_FILE_PRINT_PREVIEW 

ID_FILE_MRU_FILE1, GRAYED 

ID_FILE_MRU_FILE2, GRAYED 

ID_FILE_MRU_FILE3 , GRAYED 

ID_FILE_MRU_FILE4 , GRAYED 

ID APP EXIT 



ID_REC_FIRST 
ID_REC_PREV 

ID_REC_NEXT 

ID_REC_LAST 

ID_REC_GOTO 

ID_DATA_EDIT 
ID_DATA_NEW 

ID BLD NET FILE 



ID_EDIT_MODE 
ID_CLR_SUBFIELDS 



ID_VIEW_TOOLBAR 
ID_VIEW_STATUS BAR 



MENUITEM %About PTDinp 



ID_APP_ABOtIT 



/////////////////////////////////////////////////////////////////////////// 
/////////////////////////////////////////////////////////////////////////// 

// Accelerator 
// 

IDR_MAINFRAME ACCELERATORS PRELOAD MOVEABLE PURE 
BEGIN 



"N" 




ID FILE NEW, 


VIRTKEY, CONTROL 


"O" 




ID FILE OPEN, 


VIRTKEY, CONTROL 


"S" 




ID FILE SAVE, 


VIRTKEY, CONTROL 


up 11 




ID FILE PRINT, 


VIRTKEY , CONTROL 


"Z" 




ID EDIT UNDO, 


VIRTKEY, CONTROL 


"X" , 




ID EDIT CUT, 


VIRTKEY, CONTROL 


"C" 




ID EDIT COPY 


VIRTKEY, CONTROL 


"V" 




ID EDIT PASTE, 


VIRTKEY, CONTROL 


VK BACK, 




ID EDIT UNDO, 


VIRTKEY, ALT 


VK DELETE, 


ID 


EDIT CUT, 


VIRTKEY, SHIFT 


VK INSERT, 


ID 


EDIT COPY, 


VIRTKEY, CONTROL 


VK INSERT, 


ID 


EDIT PASTE, 


VIRTKEY, SHIFT 


VI F6 




ID NEXT PANE, 


VIRTKEY 
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ID PREV PANE, 



VIRTKEY, SHIFT 



/////////////////////////////////////////////////////////////////////////// 
/////////////////////////////////////////////////////////////////////////// 

//Dialog 
// 



IDD ABOUTBOX DIALOG DISCARDABLE 34, 22, 217, 55 



STYLE DS_MODALFRAME 
CAPTION 7About PTDinp" 
FONT 8, "MS Sans Serif" 
BEGIN 

ICON 
LTEXT 
IDC_STATIC, 

LTEXT 

DEFPUSHBUTTON 



WS CAPTION 



I WS SYSMENU 



IDR_MAINFRA]yiE, IDC_S TAT IC, 11, 17, 18, 
"Pre Term Delivery Application Version 1. 0", 

40,10,139,8 

"Copyright \251 1997 " , IDC_STATIC, 40,25,119,8 
"OK", IDOK, 175, 32, 32, 14,WSj 



0, 399, 447 
WS VISIBLE 



WS_CAPTION i 



IDD_D PTD_INP DIALOG DISCARDABLE 0, 
STYLE -DS_RODALFRAME | WS_POPUP | 
WS_SYSMENU 

CAPTION "Pre-Term Delivery Risk Assessment Software: Data Entry Screen" 

FONT 8, "MS Sans Serif" 

BEGIN 

EDITTEXT 

EDITTBXT 
ES_AUTOHSCROLL 

EDITTEXT 
ES_AUTOHSCROLL 

EDITTEXT 

EDITTEXT 



CONTROL 
BS_AUTOCHECKBOX | 

CONTROL 
"Button", BS_AUTOCHECKBOX | 



CONTROL 
" Button " , BS_AUTOCHECKBOX | 

CONTROL 
CAN, "Button" , 
BS_AUTOCHECKBOX | 

CONTROL 
BS_AUTOCHECKBOX | 



CONTROL 
BS_AUTOCHECKBOX | 



IDC_LAB_ID, 305 , 8 , 68 , 12 , ES_AUTOHSCROLL 
IDC_NAME_L, 4 6, 4 8, 5 0, 13, 



IDC_NAME_F, 117, 4 



4 0, 13, 



IDC_NAME_MI ,170,48,12,13, ES_AUTOHSCROLL 
IDC_DATE_OF_BIRTH, 28, 66, 59, 12, 
ES_AUTOHSCROLL 

"Caucasian", IDC_EO_WHITE , "Button" 



WS_TABST0P,242, 48 
"African American" 



45, 10 
IDC_EO_BLACK, 



WS_TABSTOP, 292,48, 66, 1 
"Asian", IDC_EO_ASIAN, 



WS_TABSTOP, 
"Hispanic" , 



362, 48,29,10 
IDC_EO_HISPANIC, 



WS_TABSTOP, 242, 5 9,4 0, 10 

"Native American" , IDC EG NATIVE AMER 



WS_TABSTOP, 362, 59,29, 10 
"Married" , IDC_MS_MARRIED 



Button" , 
"Button" 



WS_TABSTOP,242, 72,36,10 

" Single " , IDC_I_MS_S INGLE , "Button" 



WS_TABSTOP, 262 , 72 , 34 , 10 
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CONTROL 

"Divorced/Separated", IDC_MS_DIVORCED , "Button" , 
BS_AUTOCHECKBOX | WS_TABSTOP, 316,72,77,10 

CONTROL "Widowed " , IDC_MS_WIDOWED , "Button", 

BS_AUTOCHECKBOX | 

WS_TABSTOP, 242, 83,41, 10 
CONTROL "Living with partner", IDC_MS_LWP, 

"Button" , 

BS_AUTOCHECKBOX | WS_TABSTOP ,287,83,73,10 

CONTROL "Other", IDC_MS_OTHER , 

"Button" , BS_AUTOCHECKB0X | 

WS_TABSTOP ,562,83,29,10 
CONTROL "Yes", IDC_ACOG_Y, "Button", 

BS_AUTOCHECKBOX } WS_TABSTOP, 333,119,24,10 - 

CONTROL " No " , IDC_ACOG_N , " But ton", 

BS_AUTOCHECKBOX | WS_TABSTOP, 364, 119, 21, 10 

CONTROL "Uterine contractions with or without 

pain" , 

IDC_PATIENT_C0MP_1 , "Button", 
BS_AUTOCHECKBOX | WS_TABSTOP, 13, 145, 143, 10 
C=J CONTROL " <1", IDC_PC1_LT1, "Button", 

BS_AUTOCHECKBOX | WS_TABSTOP, 67 , 158 ,20,10 

CONTROL " 1 - 3 " , IDC_PC1_1_3 , " Button" , 

BS_AUTOCHECKBOX | WS_TABSTOP , 99,158,22,10 

CONTROL "4-6", IDC_PC1_4_6 , "Button", 

BS_AUTOCHECKBOX j WS_TABSTOP, 131,158,22,10 
IIP CONTROL 

f., "7-9", IDC_PC1_7_9, "Button", BS_AUTOCHECKBOX | WS_TABSTOP, 67,170,22 10 

^>^^ CONTROL " 10 -12 "Button" , BS_AUTOCHECKBOX | 

WS_TABSTOP, 99 , 170 , 30 , 10 

CONTROL ">12",IDC_PC1_GT12, "Button", 

M BS_AUTOCHECKBOX | WS_TABSTOP, 131, 170, 24, 10 

M CONTROL "Vaginal bleeding", 

4.=.^ IDC_VAGINAL_BLEEDING, "Button", 

BS_AUTOCHECKBOX | WS_TABSTOP, 13 , 181 , 65 , 10 

CONTROL "Trace", IDC_VB_TRACE, "Button", 

BS_AUTOCHECKBOX | 
WS_TABSTOP, 23,194,30,10 

CONTROL "Med" , 

IDC_VB_MED, "Button" , BS_AUTOCHECKBOX | WS_TABSTOP, 58,194,25,10 
CONTROL 

"Gross", IDC_VB_GROSS, "Button", BS_AUTOCHECKBOX | WS_TABSTOP 88,194,30,10 

CONTROL "Patient is not ""feeling 

right" " " , IDC_PATIENT_C0MP_6 , 

"Button" ,BS_AUTOCHECKBOX | WS_TABSTOP, 13, 2 05, 102, 10 

CONTROL "Bleeding during the second or third 

trimester" , 

IDC_PATIENT_C0iyiP_3 , 
Button" ,BS_AUTOCHECKBOX | WS_TABSTOP, 161 145,155 10 

CONTROL "Intermittent lower abdominal pain, 

dull, low backpain, pelvic press ure", 

IDC_PATIENT'_C0MP_2, "Button" ,BS_AUTOCHECKBOX j WS_TABSTOP, 161,157,233,10 

CONTROL "Change in vaginal discharge - - 

amount, color, or consistency", 

IDC_PATIENT_COMP_5 , "Button" , 
BS_AUTOCHECKBOX | WS_TABSTOP, 161 181,208 10 

CONTROL "Menstrual - like cramping (with or 

without diarrhea) " , 

IDC_PATIENT_C0MP_4 , "Button" , 
BS_AUTOCHECKBOX | WS_TABSTOP, 161 193,171 10 



o 



w 
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EDITTEXT IDC_EGA_BY_SONO , 155,224,37,12, 

ES_AUT0HSCROLL 

EDITTEXT IDC_EGA_BY_LMP, 
245 ,224,37,12, ES_AUTOHSCROLL 

EDITTEXT IDC_EG_AT_SAMP, 
350,224,37,12, ES_AUTOHSCROLL 

CONTROL "Previous pregnancy, no 

complications " , IDC_l_COMP, 

"Button", BS_AUTOCHECKBOX | WS_TABSTOP, 13 , 260, 134,10 

CONTROL "History of Preterm 

delivery" , IDC_2_COMP, "Button" , 

BS_AUTOCHECKBOX | WS_TABSTOP, 13, 272, 134, 10 

CONTROL "1", 
IDC_2_C0MP_1, "Button",BS_AUTOCHECKBOX | WS_TABSTOP, 91, 284, 19, 10 - 

CONTROL " 1 " , IDC_2_C0MP_2 , "Button" , 

BS_AUTOCHECKBOX | WS_TABST0P, 116, 284 19,10 

CONTROL " >2 " , IDC_2_C0MP_3 , " Button" , 

BS_AUTOCHECKBOX | WS_TABSTOP, 141,284, 21, 10 - 

CONTROL "History of Preterm 

PROM" , IDC_3_C0MP, "Button" , 

BS_AUTOCHECKBOX \ WS_TABSTOP, 13, 296, 92, 10 

CONTROL "History of incompetent cervix", 

IDC_4_COMP, "Button" , 

BS_AUTOCHECKBOX | WS_TABSTOP, 13 , 308, 106,10 

CONTROL "History of PIH/preeclampsia" , 

IDC_5_COMP, "Button", 

BS_AUTOCHECKBOX | WS_TABSTOP, 13 , 320, 102, 10 

CONTROL "History of SAB prior to 20 wks", 

IDC_6_COMP, "Button" , 

BS_AUT0CHECKBOX j WS_TABSTOP, 13 , 332 , 109, 10 

EDITTEXT IDE_GRAVIDITY, 277, 246,20, 12, 

ES_AUT0HSCR0LL 

EDITTEXT IDC_PARITY, 317, 246, 20, 12 

ES_AUTOHSCROLL 

EDITTEXT IDC_ABORTIONS , 357, 246, 20, 12, 

ES_AUTCHSCROLL 

CONTROL "Multiple 
Gestation: " , IDC_MULT_GEST, "Button" , 
BS_AUTOCHECKBOX | WS_TABSTOP, 23, 272, 72, 10 

CONTROL "Twins", IDC_MG_TWINS , "Button", 

BS_AUTOCHECKBOX | WS_TABSTOP, 278, 272,30,10 

CONTROL "Triplets", IDC_MG_TRIPLETS, "Button", 

BS_AUTOCHECKBOX | WS_TABSTOP, 311, 272, 36, 10 

CONTROL "Quads", IDC_MG_QUADS , "Button", 

BS_AUTOCHECKBOX | WS_TABSTOP, 550 , 272, 32, 10 

CONTROL "Uterine or cervical abnormality", 

IDC_UT_CWRV_ABNORM, "Button", BS_AUTOCHECBCBOX j WS_TABSTOP, 203, 
284,110,10 

CONTROL "Cerclage", TDC_CERV_CERCLAGE , 

"Button", BS_AUTOCHECKBOX | WS_TABSTOP, 2 03 , 296, 40, 10 

CONTROL "Gestational 
Diabetes" , IDC_GEST_DIABETES, "Button" , 
BS_AtJTOCHECKBOX | WS_TABSTOP, 203, 308, 79, 10 

CONTROL "Hypertensive Disorders", 

IDC_HYPERTEN_DISORDERS, "Button", BS_AUT0CHECKBOX | WS TABSTOP, 203, 320, 
86, 10 

CONTROL "1", IDC_DILITATI0N_LT1 , "Button", 

BS_AUTOCHECKBOX | WS_TABSTOP, 58, 364, 22, 10 

CONTROL "1", IDC_DILITATION_l, "Button", 

BS_AUTOCHECKBOX | WS_TABSTOP, 81, 364, 24, 10 
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WS_TABSTOP 101, 
WS_TABSTOP, 127, 
WS_TABSTOP 147, 
WS_TABSTOP, 173 
WS_TABSTOP, 193 
WS TABSTOP, 217 
WS_TABSTOP, 318 
WS_TABSTOP, 344 
WS_TABSTOP,370, 
WS_TABSTOP, 17, 



CONTROL 
BS_AUT0CHECKBOX 

CONTROL 
BS_AUTOCHECKB0X 

CONTROL 
BS_AUTOCHECKBOX 

CONTROL 
BS_AUTOCHECKBOX 

CONTROL 
BS_AUTOCHECKBOX 

CONTROL 
BS_AUTOCHE C KBOX 

CONTROL 
BS_AUTOCHECKBOX 

CONTROL 
BS_AUTOCHECKBOX 

CONTROL 
BS_AUT0CHECKBOX 

CONTROL 
BS_AXJTOCHECKBOX 

CONTROL 
"Button" , 
BS_AUTOCHECKBOX 

CONTROL 
BS_AUTOCHECKBOX 

CONTROL 
BS_AUTOCHECKBOX 

CONTROL 
"Button", 
BS_AUTOCHECKBOX 

CONTROL 
BS_AUTOCHECKBOX 

CONTROL 
BS_AUTOCHECKBOX 

CONTROL 
BS_AUTOCHECKBOX 

CONTROL 
BS_AUTOCHECKBOX 

DEFPUSHBUTTON 

PUSHBUTTON 

LTEXT 
249, 365, 68, 8 

LTEXT 

LTEXT 

8 

LTEXT 
29, 83, 8 

LTEXT 

8 

LTEXT 
GROUPBOX 
GROUPBOX 
LTEXT 

44, 8 

LTEXT 

Status : " , IDE_STATIC, 192 ,72,47,8 

LTEXT 
LTEXT 

INFORMATION", IDC_STATIC, 117, 102, 
GROUPBOX 



"1-2" , IDC_DILITATI0N_1_2, "Button" , 
364, 24, 10 

"2", IDC_DILITATION_2 , Button", 
364, 18, 10 

"2-3", IDC_DILITATI0N_2_3, "Button", 
364, 24,10 

" 3 " , IDC_DILITATION_3 , "Button" , 

364, 18, 10 
->3 ", IDC_DILITATI0N_GT3 , "Button", 

364, 22, 10 
"Unk . " , IDC_DILITATION_UKU, "Button" , 

364, 29, 10 
Firm", IDC_CERV_FIRM , "Button", 

564, 25, 10 
"Mod" IDC_CERV_M0D, "Button", 

364, 25, 10 - 
"Soft", IDC_CERV_SOFT, "Button", 
64, 25, 10 

"Antibiotics" , IDC_ANTIBIOTICS , "Button", 
392, 45, 10 

" Corticosteroids " , IDC_CORTICOSTEROIDS , 



WS_TABSTOP, 70, 392, 60, 10 

"Tocolytis", IDC_TOCOLYTICS , "Buttor: 
WS_TABSTOP, 138, 592, 41, 10 

"Insulin" , IDC_INSULIN, "Button" , 
WS_TABSTOP,1B7,3 92,33,10 

"Antihypertensive ", IDC_ANTIHYPER , 

WS_TAESTOP, 228, 392, 69, 10 

"None " , IDC_MED_NONE , " Button" , 
WS_TABSTOP, 305 , 392 , 29 , 10 

"Unknown", IDC_MED_UKN, "Button", 
WS_TABSTOP, 342, 392, 42, 10 

" Positive " , IDC_FFN_POS , "Button" , 
WS_TABSTOP , 13 8 , 411 , 3 7 , 10 

"Negative", IDC_FFN_NEG, "Button", 
WS_TABSTOP,228,411,41,10 

"Calculate Risk", IDOK, 270 , 429, 62, 
"Cancel". IDCANCEL, 340,429, 53,14 
"Cervical consistancy" , IDC_STATIC, 



"M", IDC_STATIC, 160,51,7,8 
"Lab ID #:11, IDC_STATIC, 267, 



10, 34, 



"PATIENT INFORMATION", IDC_STATIC, 159, 
"Name (last) ", IDC_STATIC, 7, 51, 36, 

"First", IDC_STATIC, . 99, 51, 15, 8 
"", IDC_STATIC,1,40,187,56 
" ",IDC_STATIC,1B7,4 0,210,56 

"Ethnic origin: ", IDC_STATIC, 192, 48, 

"Marital 

"DOB", IDC_STATIC, 7, 69, 16, 8 
"PATIENT HISTORY AND CLINICAL 
168, 8 

" " , IDC_STATIC, 1, 112 , 3 96 , 107 
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LTEXT 

patient experiencing signs 
LTEXT 

IDC_STATIC, 7, 134,109, 8 
GROUPBOX 
LTEXT 

IDC_STATIC, 7, 411,118, 8 

GROUPBOX 

LTEXT 
that apply) " , 

LTEXT 
GROUPBOX 
LTEXT 
trimester sono", 

LTEXT 

8 

LTEXT 

IDC_STATIC ,287,225,55,8 

GROUPBOX 

LTEXT 
sample collection: " , 

LTEXT 
9,364,48, 8 

GROUPBOX 

GROUPBOX 

CONTROL 
all that apply.", 

] WS_GROUP, 7,249, 159, 8 
LTEXT 

G: " , IDC_STATIC, 195,249, 76, 8 

GROUPBOX 

GROUPBOX 

GROUPBOX 

LTEXT 

LTEXT 

LTEXT 
284, 61, 8 
END 



"At the time of sampling was the 
and sysptoms of possible preterm labor?", 

1DC_STAT1C, 7,119, 321, 8 

"If yes, please mark all that apply. 

",IDC_STATIC, 1,373, 396, 32 
"Qualitative fFN Elisa Test Results: 

rDC_STATIC, 1, 402,396,24 
"Medications at Time of Test (check all 

IDC_STATIC, 7, 380, 163, 8 
"Number/hr" , IDC_STATIC, 22 , 15 8, 3 6, 8 

" ",IDC_STATIC, 1,216, 396, 25 
"Gestational Age: EGA by first 

IDC_STATIC, 7,225, 143, 8 

"EGA by LMP", IDC_STATIC, 197, 225, 42, 

"EGA at sampling", 

" ",IDC_STATIC, 1,346, 396, 30 
"Cervical Status immediately following 

IDC_STATIC, 7 , 352 , 182 , 8 
"Dilatation (cm)", IDC_STATIC, 

" ",IDC_STATIC, 1, 238,187, 111 
" ", IDC_STATIC, 187,238, 210, 111 
"Previous Pregnancy: Please mark 

IDC_STATrC, "Static" , SS_LEFTNOWORDWRAP 

"Current Pregnancy: 

" ",IDC_STATIC,1,93,396,22 
" ",IDC_STATIC,1,1,396,22 
" ",IDC_STATIC,1,20,396,23 
"P: ", IDC_STATIC,303,249,8,8 
"A: ", IDC_STATIC,343,249,8,8 
"If Yes, how many?", IDC_STATIC, 22, 



IDD_D_GOTO DIALOG DISCARDABLE 0, 0, 163, 95 
STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE 
WS_SYSMENU CAPTION "Go To Record ... " 
FONT 8, "MS Sans Serif" 
BEGIN 

CONTROL 
"Button" , 

BS_AUTORADIOBUTTON | WS_GROUP, 10, 16, 
CONTROL 

"Button" , BS_AUTORADIOBUTTON, 10,40,46,10 

EDITTEXT 
90 , 12 , 60 , 12 , ES_AUTOHSCROLL 

EDITTEXT 
12, ES_AUTOHSCROLL 

DEFPUSHBUTTON "Ok", IDOK, 



WS_CAPTION I 

"Record Number", IDC_R_GOTO SELl, 
2, 10 

"ID Number", IDC_R_G0T0_SEL2 , 
IDC_E_GOTO_REC_NUM , 
IDC_E_GOTO_ID_RUM, 90, 36, 60, 



PUSHBUTTON 



" Cancel" 



76, 50, 14 



IDCANCEL, 100, 76, 50, 14 
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/////////////////////////////////////////////////////////////////////////// 

1^1 u 1 1 1 1 1 1 1 1 / 1 1 1 1 1 11 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 / 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 n 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 n 1 1 1 1 1 

II string Table 
// 

STRINGTABLE PRELOAD DISCARDABLE 
BEGIN 

IDR_MAINFRAME "PTDinp Windows 

Application\nPTDin\nPTDin Docuent\n\n\nPTDin. Document\ nPTDin Document" 
END 



STRINGTABLE PRELOAD DISCARDABLE 
BEGIN 

AFX_IDS_APP_T I TLE 
AFX_IDS_IDLEMESSAGE 

END 

STRINGTABLE DISCARDABLE 
BEGIN 

ID_INDI CATOR_EXT 
ID_INDI CATOR_CAPS 
ID_INDICATOR_NUM 
ID_INDICATOR_SCRL 
ID_INDICATOR_OVR 
ID_IND I CATOR_REC 

END 



"PTDinp Windows Application" 
"Ready" 



"EXT" 

"CAP" 

"NUM" 

"SCRL" 

"OVR" 

"REC" 



STRINGTABLE DISCARDABLE 
BEGIN 

ID_FILE_NEW 

ID_FILE_OPEN 

ID_FILE_CLOSE 

ID_FILE_SAVE 

ID_FILE_SAVE_AS 

name " 

ID_F ILE_PAGE_SETUP 
ID_FILE_PRINT_SETUP 
options" 

ID_FILE_PRINT 
ID_FILE_PRINT_PREVIEW 

END 

STRINGTABLE DISCARDABLE 
BEGIN 

ID_APP_ABOUT 
version number and copyright" 

ID_APP_EXIT 
documents" 
END 

STRINGTABLE DISCARDABLE 
BEGIN 

ID_F I LE_MRU_F I LE I 
ID_F I LE_MRU_F I LE 2 
ID_F I LE_MRU_F I LE 3 
ID_FILE_MRU7 FILE4 



"Create a new document" 

"Open an existing document" 
"Close the active document" 
"Save the active document" 

"Save the active document with a new 

"Change the printing options" 
"Change the printer and printing 

"Print the active document" 
"Display full pages" 



"Display program information, 
"Quit the application; prompts to save 



"Open this document" 
"Open this document" 
"Open this document" 

"Open this document" 



STRINGTABLE DISCARDABLE 
BEGIN 

ID NEXT PANE 



"Switch to the next window pane" 



# 
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ID_PREV_PAISrE 
window pane" 



"Switch back to the previous 



STRINGTABLE DISCARDABLE 
BEGIN 

ID_EDIT_CLEAR 

ID_EDIT_CLEAR_ALL 

ID_EDIT_COPY 

the Clipboard" 

ID_EDIT_CUT 

Clipboard" 

ID_EDIT_FIND 
ID_EDIT_PASTE 
ID_ED IT_REPEAT 
ID_EDIT_REPLACE 

text" 

ID_EDIT_SELECT_ALL 
ID_EDIT_UNDO 
ID_EDIT_REDO 
action" 



"Erase the selection" 
"Erase everything" 

"Copy the selection and put it on 

"Cut the selection and put it on the 

"Find the specified text" 
"Insert Clipboard contents" 
"Repeat the last action" 
"Replace specific text with different 

"Select the entire document ?1 
"Undo the last action" 
"Redo the previously undone 



STRINGTABLE DISCARDABLE 
BEGIN 

ID_VIEW_TOOLBAR 
ID_VIEW_STATUS_BAR 

END 

STRINGTABLE DISCARDABLE 



AFX_IDS_SCSIZE 

AFX_IDS_SCMOVE 

AFX_IDS_SCMINIMIZE 

AFX_IDS_SCMAXIMIZE 

AFX_IDS_SCNEXTWINDOW 

AFX_IDS_SCPREVWINDOW 

window" 

AFX_IDS_SCCLOSE 

save the documents" 



"Show or hide the toolbar" 

"Show or hide the status bar" 



"Change the window size" 
"Change the window position" 

"Reduce the window to an icon" 
"Enlarge the window to full size" 
"Switch to the next document window" 
"Switch to the previous document 

"Close the active window and prompts to 



STRINGTABLE DISCARDABLE 
BEGIN 

AFX_IDS_SCRESTORE 
AFX IDS SCTASKLIST 



"Restore the window to normal size" 
"Activate-Task List" 



STRINGTABLE DISCARDABLE 
BEGIN 

IDD_DATA_NEW 
new record" 

ID_DATA_NEW 

edit . " 

ID_DATA_EDIT 
record. " 

ID_REC_TIRST 

file." 

ID_REC_NEXT 
ID_REC_PREV 

file." 



"Starts data entry process for 
"Create new record at end of file and 
"Edit the cturrently selected 

"Go to the first record in the 

"Go to the next record in the file." 
"Go to the previous record in the 
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ID_REC_LAST "Go to the last record in the file." 

ID_BID_NET_FILE "Build file of neural data from 

currently opened database." 

ID_EDIT_MODE "Print the full data form when 

checked or results only when unchecked." 

ID_CLR_SUBFIELDS "Clear subfields when item cleared." 

ID_REC_GOTO "Go to a specific record number or 

specific ID." 



#ifndef APSTUDIO_INVOKED 

/////////////////////////////////////////////////////////////////////////// 
/////////////////////////////////////////////////////////////////////////// 

// Generated from the TEXTINCLUDE 3 resource. 
// 

#include "res\PTDinp . rc2 " // non-App Studio edited resources 

#include "afxres.rc" // Standard components 

#include "afxprint . rc" // print ing/print preview resources 
#include "afxdb.rc" // Database resources 

/////////////////////////////////////////////////////////////////////////// 
/////////////////////////////////////////////////////////////////////////// 
#endif // not APSTUDIO_INVOKED 

# Microsoft Visual C++ generated build script - Do not modify 

PROJ = PTDINP 
DEBUG = 0 
PROGTYPE = 0 
CALLER = 
ARGS = 
DLLS = 

D_RCDEFINES = /d_DEBUG 
R_RCDEFINES = /dnDEBUG 
ORIGIN = MSVC 
ORIGIN_VER = 1.00 

PROJPATH = C:\DDD\AD97-1\PTDINP\ 
USEMFC = 0 
CC = cl 
CPP = cl 
CXX = cl 

CCREATEPCHFIAG = 

CPPCREATEPCHFLAG = /YcSTDAFX.H 
CUSEPCHPLAG = 

CPPUSEPCHFLAG = /YuSTDAFX.H 
FIRSTC = 

FIRSTCPP = STDAFX.CPP 
RC = rc 

CFLAGS_D = WEXE = nologo /G2 /W3 /V /AL /Od /D " AFXDLL" /D " DEBUG" /FR 
/GA /GEf 

CFLAGS_R = WEXE = /nologo /Gs /G3 /W3 /AL /Ol /D "RDEBUG" /D AFXDLL" /FR 

/GA /GEf ~ 

LFLAGS_D = WEXE = NOLOGO /NOD /PACKC: 61440 /STACK: 10240 /ALIGN: 16 /ONERROR: 
NOEXE/ CO 

LIBS_D_WRXE = mfc250d oldnames libw llibcew mfcd250d commdlg.lib shell. lib, 
LIBS_R_WEXE = mfc250 oldnames libw llibcew mfcd250 odbc commdlq lib 
Shell . lib 
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RCFIiAGS = /nologo /z 
RCFLAGS = /nologo /t /k 
RUNFLAGS = 

DEFFILE = PTDINP.DEF 
OBJS_EXT = 

LIBS_EXT = EVA.LNET_LIB TKSDLL.LIB 

!if "$ (DEBUG) " = = "1" 

CFLAGS = $ {CFliAGS_D_WEXE) 

LFLAGS = $ (LFLAGS_D_WEXE) 

LIBS = $ (LIBS_D_WIXE) 

MAPFILE = nul 

RCDEFINES = $ {D_RCDEFINES) 
i else 

CFLAGS = $ (CFLAGS_R_WEXE) 
LFLAGS = $ (LFLAGS_R_WEXE) 
LIBS = $ {LIBS_R_WEXE) 
MAPFILE = nul 
RCDEFINES = $ (R_RCDEFINES) 
! endif 

!if (if exist MSVC.BND del MSVC.BND] 
1 endif 

SBRS = STDAFX.SBR \ 

PTDINP.SBR \ 
MAINFRM.SBR \ 

PTDIDOC.SBR \ 
PTDIVW.SBR \ 
PTDDLGl.SBR \ 
PTDGOTO . SBR 

EVA_LNET_DEP = 

TKSDLL_DEP = 

PTDINP_RCDEP = c:\ddd\ad97-l\ptdinp\res\ptdinp.ico 

c : \ddd\ad97-l\ptdinp\res\ptdinp. rc2 
STDAFX_DEP = c:\ddd\ad97-l\ptdinp\stdafx.h 



PTDINP_DEP = c:\ddd\ad97-l\ptdinp\stdafx.h 
c : 7ddd\ad97- l\ptdinp\ptdinp . h 
c : \ddd\ad97 - l\ptdinp\ptdidoc . h 
c : \ddd\ad97-l\ptdinp\mainf rm.h 
c : \ddd\ad97-l\ptdinp\ptdivw.h 

MAINFM_EP = c:\ddd\ad97-l\ptdinp\stdafx.li 
c : \3dd\ad97 - l\ptdinp\ptdinp . h 
c : \ddd\ad97-l\ptdinp\ptdidoc . h 
c : \ddd\Ad97-l\ptdinp\niainf rm.h 

PTDIDOC_EP - c:\ddd\ad97-l\ptdinp\stdafx.h 
c : \3dd\ad97 - l\ptdinp\ptdinp . h 
c : \ddd\ad97-l\ptdinp\ptdidoc .h 
c:\ddd\ad97-l\ptdinp\aa_nets .h 

PTDIVW_EP = c:\ddd\ad97-l\ptdinp\stdafx.h 
c:7ddd\ad97-l\ptdinp\ptdinp.h \ 
c : \ddd\ad97-l\ptdinp\ptdidoc . h 
c:\ddd\ad97-l\ptdinp\ptdivw.h \ 
c : \ddd\ad97 -l\ptdinp\ptddlgl . h 

PTDDLG1__EP = c:\ddd\ad97-l\ptdinp\stdafx.h 
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c: \add\ad97-l\ptdinp\ptdinp.h 
c : \ddd\ad97-l\ptdinp\ptdidoc .h 
c : \ddd\ad97-l\ptdinp\ptddlgl .h 

all: $(PROJ).EXE $(PRCJ).BSC 

PTDINP.RES: PTDINP.RC $ (PTDINP_RCDEP) 

$(RC) $(RCFLAGS) $ (RCDEFINES) -r PTDINP.RC 

STDAFX . OBJ : STDAFX . CPP $ ( STDAFX_DEP ) 

$ (CPP) $ (CFLAGS) $ (CPPCREATEPCHFLAG) /c STDAFX. CPP 

PTDINP.OBJ: PTDINP.CPP $ (PTDINP_DEP) 

$(CPP) $ (CFLAGS) $ (CPPUSEPCHFLAG) /c PTDINP.CPP 

MAINFRM . OB J : MAINFRM .CPP $ ( MAINFRM_DEP ) 

$(CPP) $ (CFLAGS) $ (CPPUSEPCHFLAG) /c MAINFRM . CPP 

PTDIDOC . OBJ : PTDIDOC . CPP $ ( PTDIDOC_DEP) 

$(CPP) $ (CFLAGS) $ (CPPUSEPCHFLAG) /c PTDIDOC. CPP 

PTDIVW.OBJ: PTDIVW.CPP $ (PTDIVW_DEP) 

$(CPP) $ (CFLAGS) $ (CPPUSEPCHFLAG) /c PTDIVW.CPP 

PTDDLGl . OBJ : PTDDLGI . CPP $ ( PTDDLG1_DEP) 

$(CPP) $ (CFLAGS) $ (CPPUSEPCHFLAG) / C PTDDLGl . CPP 

PTDGOTO . OBJ : PTDGOTO .CPP $ ( PTDGOTO_DEP ) 

$(CPP) $ (CFLAGS) $ (CPPUSEPCHFLAG) /c PTDGOTO . CPP 

$ ( PROJ) . EXE : : PTDINP . RES 

$ ( PROJ) . EXZ : : STDAFX . OBJ PTDINP . OBJ MAINFRM . OBJ PTDIDOC . OBJ 

PTDIVW.OBJ PTDDLGl. OB J 

PTDGOTO. OBJ $(OBJS_XT) $ (DEFFILE) 

echo >KUL @«$(PRO'j) .CRF 

STDAFX. OB J + 

PTDINP.OBJ + 

MAINFM.OBJ + 

PTDIDOC. OBJ + 

PTDIVW.OBJ + 

PTDDLGl. OB J + 

PTDGOTO. OB J + 

$ (OBJS_EXT) 

$(PROJ) .EXE 

$ (MAPFILE) 

c:\msvc\lib\+ 

c : \msvc\mf c\lib\+ 

EVALNET.LIB+ 

TKSDLL.LIB+ 

$ (LIBS) 

$ (DEFFILE) ; 

link $(LFLAGS) ®$ (PROJ) .CRF 
$(RC) $(RESFLAGS) PTDINP.RES $@ 
©copy $(PROJ) .CRF MSVC.BND 

$ ( PROJ) . EXE : : PTDINP . RES 

if not exist MSVC.BND $ (RC) $ (RES FLAGS) PTDINP.RES $@ 
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run: $ (PRO J) .EXE 

$ (PROJ) $ (RUNFLAGS) 

$(PROJ) .BSC: $(SBRS) 

bscmake ®« 
/o$@ $(SBRS) 
<< 

// PTDidoc.h : interface of the CPTDinpDoc class 
// 

/////////////////////////////////////////////////////////////////////////// 
/////////////////////////////////////////////////////////////////////////// 
#ifndef _PTDINPDOC_H_ 
#define _PTDINPDOC_H_ 

idefine REC_LENGTH 330L 

class CPTDinpDoc : public CDocument 

protected: // create from serialization only 
CPTDinpDoco ; 

DECLARE_DYNCREATE (CPTDinpDoc) 

//Attributes public: 
public : 

CString m_LAB_ID; 
CString m_NAiyiE_L; 
CString m,_NAME_F; 
CString m_NAME_MI; 

CString m,_DATE_OF_DATA_ENTRY; //time 

double m_PATIENT_AGE ; 

CString m_DATE_OF_BIRTH; 

CString m_ETHNIC_ORIGIN_WHITE; 

CString m_ETHNIC_ORIGIN_BLACK; 

CString m_ETHNIC_ORIGIN_ASIAN; 

CString m_ETHNIC_ORIGIN_HISPANIC; 

CString m_ETHNIC_ORIGIN_NATIVE_AMERICAN; 

CString m_ETHNIC_ORIGIN_OTHER; 

CString m_MARI TAL_STATUS_S INGLE ; 

CString m_MARITAL_STATUS_MARRIED,- 

CString m_iyiARITAL_STATUS_DIVORCED ; 

CString m_MARITAL_STATUS_WIDOWED; 

CString m_MARITAL_STATUS_LWP; 

CString m_MARITAL_STATUS_OTHER ; 

CString m_ACOG_SYNPTOMS ; 

CString m_PATIENT_COMPLAINT_l ; 

CString m_PATIENT_C0MPIAINT_l_l_3 ; 

CString m_PATIENT_COMPLAINT_l_10_12 ; 

CString m_PATIENT_COMPLAINT_l_4_6 ; 

CS t r i ng m_PAT I ENT_COMPLAINT_l_7_9 ; 

CString m_PATIENT_COMPLAINT_l_GTT12 ; 

Cstring_rr_PATIENT_COMPLAINT_l_LTl; 

Cstring_m_VAGINAL_BLEEDING; 
CString m_VAGINAL_BLEEDING_TRACE ; 
CString m_VAGINAL_BLEEDING_MEDIUM; 
CString m_VAGINAL_BLEEDING_GROSS ; 
CString m_PATIENT_COiyiPIiAINT_6 ; 
CString m_PATIENT_COMPLAINT_3 ; 
CString m_PATIENT_COMPLAINT_2 ; 
CString m_PATIENT_COMPLAINT_5 ; 
CString m_PATIENT_COMPLAINT_4 ; 
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CString m_EGA_BY_SONO ; 

est ring m . _EGA_BY_LMP ; 

CString m_EGA_AT_SAMPLING; 

CString m_0_COMP; 

CString m_l_COMP; 

CString m_2_C0MP; 

CString m_3_C0MP; 

CString in_4_COMP; 

CString m_5_COMP; 

CString m_6_C0MP; 

CString tn_2_C0MP_l; 

CString Tn_2_C0MP_2 ; 

CString m_2_COMP_3 ; 

CString r_GRAVITY; 

CString r_PARITY; 

CString r_ABORTIONS ; 

CString m_MULTIPLE_GESTATION; 

CString r_MULTIPLE_GESTATION_TWINS ; 

CString m_MULTIPLE_GESTATION_TRIPLETS 

CString m_MULTIPLE_GESTATION_QUADS ; 

CString m_UTCERV_ABNORMALITY; 

CString r_CERVICT_L_CERCLAGE; 

CString m_GESTATIONAL_DIABETES ; 

CString m_HYPERTENSIVE_DISORDERS ; 

CString m_DILITATION_LTl ; 

CString Tn_DILITATION_l ; 

CString m_DILITATI0N_l_2 ; 

CString m_DILITATI0N_2 ; 

CString m_DILITATION_2_3 ; 

CString ra_DILITATION_3 ; 

CString m_DILITATI0N_GT3 ; 

CString m_DILITATION_UNKNGWN; 

CS t r ing m_CERVI CAL_CONS I STANC Y_FIRM ; 

CString m_CERVICAL_CONSISTANCY_MOD ; 

CString m_CERVICAL_CONSISTANCY_SOFT ; 

CString m_ANTIBIOTICS ; 

CString m_CORTICOSTEROIDS ; 

CString m_TOYOLYTICS; 

CString m_INSULIN; 

CString m_ANTIHYPERTENSIVES ; 

CString m_MEDICATIONS_NONE; 

CString m_MEDICATIONS_UNKNOWN; 

CString r_FFN_RESULT; 

char Rec [REC_LENGTH + 16]; 

char fid [256] ; 

char PathName [128] ; 

long CurRecord ; 

long NumRecords; 

int GotoMode ; 

CString IDStr; 

char tstr[2561; 

Ctime tim; 



char NetNatne [12 8] 
char NetRec[1024] 
double m_Net Pos 1 ; 
double M_NetNegl; 
double m_NetVall ; 
double in_7NetPos2 ; 
double m_7NetNeg2; 



double m_NetVal2; 
double Tn_NetPos3; 
double Tn_NetNeg3; 
double m_NetVal3; 

// Operations 
public : 

void get_rec ( char* pRec) ; 

char* get - fid (char* pRec, int ofs, int len) ; 
CTimeS gei time f Id (char* pRec, int of s, int len) 
void put_rec (char* pRec) ; 

void put_fld (char* pRec, CString& dat, int of s, int len) 

void put_dbl_fld (char* pRec, double dat, int of s, int len) ; 

void put_net_fld (char* pRec, double dat, int of s, int len) ; 

void put_time_f Id (char* pRec, CTime& dat, int of s, int len) 

void InitializeRec (void) ; void LoadNets (void) ; 

void FreeNets (void) ; 

void RunNetsdong n) ; 

char* tiTne2str( const CTime& tm) ; 

CTimeS: str2time( CString& str) ; 

void get-file ( void) ; 

// Implementation 
public : 

virtual -CPTDinpDoc ( ) ; 

virtual void Serialize (CArchive& ar) ; // overridden for document 

i/o 

#ifdef _DEBUG 

virtual void Assert Valid ( ) const; 
virtual void Dump (CDumpContext& dc) const; 

#endif 

protected: 

virtual BOOL OhMewDocument ( ) ; 
// Generated message map functions 
protected : 

/ / { { AFX_MSG ( CPTDinpDoc ) 

afx_msg_void OnRecFirst ( ) ; 

afx_msg_void OnRecLast ( ) 

afx_msg_void_OnRecNext ( ) 

afx_msg_void OnRecPrev ( ) 

afx_msg_void OnFileOpen ( ) ; 

afx_msg_void OnBldNetFile ( ) ; 

afx_msg_void OnRecGoto ( ) ; 

afx_msg_void OnFileMruFilel ( ) 

afx_msg_void OnFilemruFile2 ( ) 

afx_msg_void OnFileMruFileS ( ) 

afx msg_void OnFilemruFile4 ( ) 

//}yAFX_MSG 

DECLARE MESSAGE MAP ( ) 

}; 

#endif // PTDINPDOC_H_ 

/////////////////////////////////////////////////////////////////////////// 
/////////////////////////////////////////////////////////////////////////// 
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